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Pr ivi le 

Data ar 

ACRPRV 

CLRPRV 

CCSPRV 

RSTPRV 

FIXPRV 

OPTLST 

SCNOPS 

SETWRD 

PRVOPT 

PFLRTN 

PRvLST 

CKACOJ 

SPLACT 

CHKTTD 

DOSTOP 

PUSHCF 

POPCF 

ABRTCF 

INDABT 

CFSTOP 
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PRTR50 
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PRTSPC 

PRTTTP 

EDTFIL 

EDTR50 

PRTUNM 

PRTTIM 

PRTTMV 

PRTTMD 

PRTDAT 

PRTTOD 

DATIM 

SEARCH 
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to access another job 



command files 



names and flags 
s 
Accrue a list of privileges 
Clear all parsing privilege flags 
Copy current to set privileges 
Reset job privileges 

Transfer privilege flags to LSW tables 
Process list of command options 
Process a list of command options 
Process a SET command keyword 
Process PRIVILEGE option 
Set or clear privilege flans 
List names of privileges 
Check if me are privileged 
Check if spooler is active 
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Ed it file spec 

Convert RAD50 value to ascii 
Print user name or PPN 
Print job statistics 
Print 3 time value 
Print a time value with 
Print the current date 
Print the time of day 
Print date and time 
Search keyword list 



spaces 



I 

I 

i 
t 



day; 



f 
f 

t 

€ 

i 
i 

i 

i 
4 



TSKMN3 — TSKMQN Subroutines 
Table of contents 



MACRO V05. 05 Thursday 19-Jan-89 09: 16 



< 

I 
( 

I 
1 



56- 


1 


56— 


1 1 


56- 


23 


56- 


34 


57- 




58- 




59- 




60- 




61- 




62- 




63- 




64- 




65- 




66- 




67- 




67- 


19 


68- 




69- 




70- 




71- 




72- 




73- 




74- 




75- 




76- 




77- 




78- 




79- 




80- 




81- 




82- 




83- 




84- 




85- 




85- 


16 


85- 


54 


86- 




86- 


25 


87- 




87- 


10 


87- 


19 


87- 


28 



FPRINT — Print fatal error message 

PRTWRN — Print warning message 

FKILL — Print error message and abort 

KMNERR — Abort command files on KMON error 

ACRFN — Accrue a file name 

ACRFIL — Accrue full file specification 

DMTALL — Dismount and deallocate all devices 

DMTSUQ — Remove a device from directory cache 

CDJFLG — Get user-flag for cached device entry 

CHKDEV — See if requested device is legal 

CHKMNT — See if device is mounted 

CHKMTX — See if device is mounted by other users 

CKCLUS — Check to see if a CL unit is in use 

CHKALC — Determine if device is allocated to another user 

CDGET — Get local copy of mount device entry 

CDPUT — Store mount descriptor block into kernel 

LDCLEN — Perform SET LD CLEAN operation 

LDMNT — Set up information about a logical disk 

CKLDAC — Check if LD is in access control table 

ADLDAC — Add LD entry to access control table 

DLLDAC — Delete LD entry from access control table 

DOASGN — Add entry to the ASSIGN table 

CVDVNM — Convert device number to device name 

CHKCLU — See if device name is CL or CI unit 

ASNSRC — Search assign table for logical name 
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FORCEO — Force a 2-char dev name to unit 

DEADEV — Deassign physical device 
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CKPRIV — Check for OPER privilege 
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CKTERM — Check for TERMINAL privilege 

PRGALL — Purge all channels for job 
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000000 
000000 



. TITLE TSKMN3 

. ENABL LC 

. DSABL GBL 

. CSECT TSKMN3 



— TSKMON Subroutines 



TSKMN3: 



Copyright 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988. 
S&H Computer Systems, Inc, 
Nashville, Tennessee 



Macro calls 

. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 



. C8ISPC, . TTOUTR, . SRESET 

. READW, . TTY1N, . TTYOUT, . PURGE 

. CSIOEN, . SAVEST, . REOPEN 

. GTLIN, . GTIM, . DATE 

. PRINT, . CLOSE, . LOOKUP 

. WRITW, , ENTER, . EXIT 

. SERR, . HERR, . FPROT, . GVAL, . PVAL 

. ELRG, . CRRG 



Global references and definitions 

. GLOBL AFCF, SSCCA, AFSCCA, LWINDO, AF*NPW, *NOWIN, LSW1 1 

. GLOBL INSTBL, INGADR, INGEMT, IIBUF, II*NAM, II**S2, INSTBN 

. GLOBL ACRTXT, CHKCLU, CFSTRT, CFSTOP, RSCFST, CFACFL, CXTRMN 

. GLOBL PEKEMT, PEKADR, PEKSI Z, PRVOPT, CLS>XLN, ACRSTR 

. GLOBL ABRTAD, ABRTCD, CINFLG, *VNOTT, LSTSPL, EM*IST 

. GLOBL CORUSR, LSW, *CTRLO, SERFLG, IOABFL, TSKMN3 

. GLOBL UTRPAD, JSWLOC, ERRLOC, MAXMEM, CHKALC 

. GLOBL USRSTK, *KINIT, CFSTK, MXJMEM, DFJMEM 

. GLOBL SPUBUF, SXBPNT, MXJADR, CKCLUS 

. GLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH, CFSQEZ, LDCLEN, DATTIM 

. GLOBL TMSWTH, TMIDLH, TMIOH, TMSWPH, PRGALL, LDMNT 

. GLOBL WILDFL, *NOIN, *NOWTT, *HITTY, LPARNT, WLDNAM 

. GLOBL P2*UP1, P2*UP2, P2*UP3, P2*UP4, P2*CXT, *SUCF 

. GLOBL PO*BYP, PO*NFR, PO*NFW, POSSPF, RUNFLG 

. GLOBL P2*TRM, EM*OPR, EM*SPR, EM*TPR, PO**NP, P2**NP 

. GLOBL PO*DBG, POfSPV, CKACOJ, P2*WRL, P2*GRP, P2*SAM, EMSCAJ 

. GLOBL PO*DET, PO*MEM, P2*MSG, PO*OPR, PO*LOK, PO*RT 

. GLOBL PO*SND, PO*NAM, PO*SPV, P2*RLK, P2*CGR, PO*SYS 

. GLOBL P2*VIR, PO*ALC, PRIVC2, *NOVLN, LSW2S 

. GLOBL CHKEQ, CLRPRV, RSTPRV, PRVLST, FIXPRV, CCSPRV 

. GLOBL P VNPW, PFSO, PFCO, EM*CSE, PR I VCO, PR I VSO, PR I VFO 

. GLOBL CDGET, CDPUT, CDBUF, CDGEMT, CDGADR, CDPEMT, CDPADR 

. GLOBL TECO, EDIT, KED, K52, *1STLG, *DIBOL, SETWRD, ACRPRV 

. GLOBL R. GSTS, RS. CRR, RS. GBL, RS. PVT, RS. EGR, OPTLST 

. GLOBL SH*VAL, SH*NAM, SH**SZ, SH*RTN, SH*FLG, SFCBSZ 

. GLOBL TM*CLG, EM*ENM, EM*IOV, EM*ISV, KUSECK, SCNOPS 

. GLOBL ALCDEV, DLCEMT, SFID, RUNCHN, GETKCH 

. GLOBL SOSNVL, SO*OCT, SO*NO, HANENT, HANSIZ 

. GLOBL HAZEL, HAZLFL, HAZLNO, *MLOCK, MDT, LSW9 

. GLOBL LINBUF, LINNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

. GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG 

. GLOBL LINPNT, LINCNT, LACTIV, LRDTIM, CS*RON 

. GLOBL LOTBUF, LOTNXT, LOTPNT, *VTESC 

. GLOBL LOTSIZ, LOTSPC, LCOL, TK1SEC, *NTGCC 
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GLOBL LAF5IZ, LFWLIM, LINCUR, NUMON, ILSW2 

GLOBL SCARUP, DOASGN* LOGCHK, LQGDVU, L0GBA3 

GLOBL LSUCF, *CCLRN, TALEMT, ALCDEV, EM*DAA, EM*DIU 

GLOBL KL3CLR, *PRGLK, LSW5, PVON, S*SPND 

GLOBL S*TWFN, S$TTFN> S*OTFN, S*IOFN, S*OTLO 

GLOBL LSTDL, FSTDL, *DETCH, UMSYTP 

GLOBL *DISCN, LPROJ, LPROG, LUNAME 

GLOBL LCPUHI, LCPULO, LCONTM, SCTRLS, *SPLJB 

GLOBL STPFLG, TOTON, USPLCH, SPLCHN, *CFKIL 

GLOBL S*INWT, S*OTWT/ S*TMWT, S*SFWT, *INDAB 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIM, LSECPT, MAXSEC, *EMTTR, SC*WRN 

GLOBL OKFILE, OKFEND, OKFAND, OKFNND 

GLOBL SCLTST, SKPSPC, SKPDLM, SC*SEV 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VI MAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI , BOTCSR 

GLOBL SCTRLC, L5W2> *INKMN, CHAIN, UFORM 

GLOBL MAXASN, *CFABT, INDSTA> INDERR 

GLOBL AT*L0G, AT*SIZ, AT*DEV, AT*FIL, AT*EXT, AT**SZ 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASNTBL, *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL ASNEND, LSW3, *DUPRN 

GLOBL *FORM, *TAB, LSCCA, SCFSOT 

GLOBL *PAGE, *SCOPE, *ECHO, *LC 

GLOBL UCHAN, *FORMO, *CFALL> *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG 

GLOBL *D00FF, NUCHN, LRBFIL, CFIND 

GLOBL C. CSW, C. DEVQ, C. SBLK, NLINES 

GLOBL CD*NAM, CD*DVU» CD*BAS, CD*JOB» CD**SZ, CD$*UB 

GLOBL LTSCMD, LNSPAC, CFNEST, UCLNAM 

GLOBL *CFOPN, CFSEND. PBFEND, CFSP, STTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*FLK, SD*WFM, SDFORM, *UCLRN 

GLOBL SDBUF1, SDBLK, SPLND, LD*RON 

GLOBL LDNAME, LDSIZE, LDFLAG, LDBASE, LDPDEV 

GLOBL SDEFER, CFCHAN, SCHAIN, LDDEVX, CLDEVX 

GLOBL CFPNT, CFBLK, *QUIET, DIABFL 

GLOBL DIABNO, VT52N0, LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

GLOBL *INCOR> *KED, TK5VAL 

GLOBL SF*BSY, SFFORM, SD*SNG, SFNMBL, NFRESB 

GLOBL SD*HLD, SF*HLD, CURPRM, PRMPNT, SF*1ST 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD 

GLOBL LCOL, *GTSET, *TECO, CD*TOP, POPCF 

GLOBL *WILD, ERRSEV, UERSEV, PASLIN 

GLOBL LSTPL, SDCB, SDCBND 

GLOBL VQUAN1, VQUN1A> VGUAN2, VHIPCT 

GLOBL DCTRD, DCCRD, DCTWR> DCCWR 

GLOBL VCORTM, KMPRMT, MXPRMT 

GLOBL RDB, RDBEND, RT*NAM, RT**SZ 

GLOBL SDNAME, SDCBSZ, LSTSL. LSTATE 

GLOBL TK1VAL, CJNDAT, SYSDAT> SYTIMH; SYTIML 

GLOBL BASMAP, LOMAP, HIMAP, JCXPGS 

GLOBL TSXLN, TSXSIT, GRT1, TRGRET, LICTXT> SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRG1, LPRG2, S*QUSR, S*IOWT, S*SFWT 

GLOBL S*5PDB, S$SPCB, SFUSER, SFFILE, VT2007, VT2008 
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GLOBL LCBIT, LA36, LA120, VT52, VT100, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VT10FL, VT10N0, QUMEFL, QUMENO, ADM3FL 

GLOBL ADM3N0, SYINDX, SYUNIT, NUMDEV, PNAME 

GLOBL OF*DEV, OF*UNT, OF*FIL, OF*FLG, SYNAME 

GLOBL OF**SZ, OT*RON, RESDEV, *TAPE 

GLOBL KMNBAS 

GLOBL LSW6, *SNWTT, PF*SYS, PF*IOW 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL *INDDF, *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL SPHONE, INVEC, LMXLN, MXVEC, *INIT, *DEAD 

GLOBL ITRMTP, LMXPRM, LSW7, CFSTS, CFSIND, CF*QUT 

GLOBL CFABLV, MONVEC, CVTUC, INDABT 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOGBUF, LOGBLK 

GLOBL LF*OPN, LFSWRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC*CDX, FC$LNK, FD*NAM,_UC*NDC, OC*MDC 

GLOBL CMDBUF, PAUMSG, RDCMD, DKSAV, 3YSAV, CVTTAB, RUNHD, SEARCH 

GLOBL INVOPT, FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, PRTWRN 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, WRNHED 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG, NOCIN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, INVOPT, ILLCMD 

GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TBLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC, CKTERM 

GLOBL MAXAVL, PRTDEC, DEVUNT, PNAME, HANIDX, HNBUF, ACRSPD 

GLOBL ACROCT, HANBSY, CSIMS1 , MISSEQ, NOIND, CKSYPV 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 

GLOBL BDLGOP, SPLHLA, NOCCL, LDOPHD, PRTFI X, PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHD1 , SYHD2, PRTLN, SPACE2, DETTXT, SPACE3, RNMS 

GLOBL SWPTX, LOCKTX, SPACE5, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUF, CALUCL 

GLOBL NOUDC, DEVHD1, ASNHD1, ASNHD2, SHMTH1, SHMTH2 

GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, PRTTMD 

GLOBL DELSPC, MONHD, MONAR 1 , NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, SDNAME, CHKDLM, SPLHD, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL SPSNG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG, CHKTTD 

GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMTALL, H. CSR 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DI VSOR, TMTOTL, PRTPCT, SUM1 , SUM2, SUM3, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL nc-xun. ncTAoo. rummq. wnFBni . RFinMnw. tmuhat. mjii 30. rn^c 

GLOBL BADBOT, START, BOTEMT, CF2DEP, LGOVER, R50CHR, REMNDR, PBUFND 

GLOBL PPNMSG, CTMSG, CPUMSG, MONTAB, KEYBUF, KEYEND, KMFTXT 

GLOBL KMSTK, ASNSRC, INSSRC, SJSPPN, FORCEO 
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Assembly constants 



LF 


= 


12 


CR 


= 


15 


BLANK 


as 


40 


BELL 


= 


07 


TAB 


= 


11 


FF 


ss 


14 


COMMA 


= 


54 


BLKWDS 


= 


256 


HANCHN 


5= 


17 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

COMMA 

# OF WORDS IN DISK BLOCK 
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Macro to cause a fatal error message to be printed. 



. MACRO 


FERR MS© 


MOV 


R5, -<SP) 


MOV 


MSG, R5 


CALL 


FPRINT 


MOV 


<SP)+,R5 


. ENDM 


FERR 



Macro to print a fatal error message* clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message. 

. MACRO FWARIM MSG 

MOV R5, -<SP> 

MOV MSG, R5 

CALL PRTWRN 

MOV <SP>+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 



NARGS 



NAME'HD: .WORD 
. ENDM 



. MACRO TBLDEF NAME, NA 

NA 
. CSECT CMDV3 

2#NA 

TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B* C = Set of option parameters to store in table with nami 



. MACRO CMDDEF STRNG, A, B, C, D 
. CSECT NAME3 



. IIF 
. IIF 
. IIF 



.ASCIZ /STRNG/ 

. CSECT CMDV3 

. WORD L 

. WORD A 

GE, <NARGS-2> . WORD 

GE, <NARGS-3> . WORD 

GE, <NARGS-4> . WORD 

. ENDM CMDDEF 



i POINTER TO NAME STRING 



B 
C 
D 



I 

f 

f 
t 



f 
I 

c 

i 
I 
< 
i 
< 



i 

i 



( 

I 



I 



I 

I. 



« 
I 
I 

i 

I 



( 
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58 ; 

60 > Macro to end a set of table entries. 

61 i 

62 . MACRO TBLEND 

63 . CSECT CMDV3 



64 . WORD 



} * 65 . CSECT TSKMN3 

66 . ENDM TBLEND 

I 

I 
I 

( 



c 
< 

i 

i 
i 
i 

i 

« 
< 



I 
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Privilege names and flags 



> 



< 
I 
( 
( 
( 
t 
t 

€ 

t 
i 
f 

t 



I 

t t 



1 








3 




4 




5 




6 




7 




S 




9 




10 




11 


000000 


12 


000002 


13 


000014 


14 


000026 


15 


000040 


16 


000052 


17 


000064 


IS 


000076 


19 


000110 


20 


000122 


21 


000134 


22 


000146 


23 


000160 


24 


000172 


25 


000204 


26 


000216 


27 


000230 


28 


000242 


29 


000254 


30 


000266 


31 


000300 


32 


000312 


33 


000324 


34 


000336 


35 


000350 


36 


000362 


37 


000374 


38 


000406 


39 


000420 


40 


000432 


41 


000444 


42 


000456 


43 


000470 


44 


000502 


45 


000514 


46 


000526 


47 


000540 


48 


000552 


49 


000564 


50 


000576 


51 


000610 


52 


000622 


53 


000634 


54 


000646 


55 


000660 


56 


000672 


57 


000704 
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. SBTTL Privilege names and flags 

Table of process privilege names and flags. 

Arg 1 - Privilege keyword. 

Arg 2 = Name of routine to set or clear flag (PFLRTN) 

Arg 3 = Flag mask. 

Arg 4 = Offset to privilege word with flag. 

Arg 5 = + ==> Set bit, - ==> Clear bit. 

TBLDEF PRV, 4 

CMDDEF ALL, PFLALL, 0, 0, +2 

CMDDEF ALLO*CATE, PFLRTN, PO*ALC, 0, +1 

CMDDEF NOALLO*CATE, PFLRTN, PO*ALC, 0, -1 

CMDDEF BYP*ASS, PFLRTN, P05BYP, O, +1 

CMDDEF NOBYP*ASS, PFLRTN, PO*BYP, 0, -1 

CMDDEF DEB*UG, PFLRTN, P0*DBG, 0, +1 

CMDDEF NODEB*UG, PFLRTN, POfDBG, 0, ~1 

CMDDEF DET*ACH, PFLRTN, PO*DET, 0, +1 

CMDDEF NODET*ACH, PFLRTN, PO*DET, 0, -1 

CMDDEF GETC*XT, PFLRTN, P2*CXT, 2, +1 

CMDDEF NOGETC*XT, PFLRTN, P2*CXT, 2, -1 

CMDDEF MEML*OCK, PFLRTN, PO*LOK, 0, +2 

CMDDEF NOMEML*OCK, PFLRTN, PO*LOK, 0, -2 

CMDDEF MEMM*AP, PFLRTN, PO*MEM, 0, +1 

CMDDEF NOMEMM*AP, PFLRTN, PO*MEM, 0, -1 

CMDDEF MES*SAGE, PFLRTN, P2*MSG, 2, +1 

CMDDEF NOMES*SAGE, PFLRTN, P2*MSG, 2,-1 

CMDDEF NFSR*EAD, PFLRTN, PO*NFR, 0, +1 

CMDDEF N0NF5R*EAD, PFLRTN, POSNFR, 0, -1 

CMDDEF NFSW»RITE, PFLRTN, PO*NFW, 0, +1 

CMDDEF NONFSW*RITE, PFLRTN, PO*NFW, 0, -1 

CMDDEF OP*ER, PFLRTN, PO*OPR, 0, +1 

CMDDEF NOOP*ER, PFLRTN, PO*OPR, 0, -1 

CMDDEF PSWAP*M, PFLRTN, PO*LOK, 0, +1 

CMDDEF NOPSWAP*M, PFLRTN, PO*LOK, 0, -1 

CMDDEF REAL*TIME, PFLRTN, PO*RT, O, +1 

CMDDEF NOREAL*TIME, PFLRTN, PO*RT, 0, -1 

CMDDEF RLO*CK, PFLRTN, P2*RLK, 2, +1 

CMDDEF NORLO*CK, PFLRTN, P2*RLK, 2, -1 

CMDDEF SEN#D, PFLRTN, PO*SND, 0, +1 

CMDDEF NOSEN*D, PFLRTN, PO*SND, 0, -1 

CMDDEF SETNA#ME, PFLRTN, P0*NAM, 0, +1 

CMDDEF NOSETNA#ME, PFLRTN, PO*NAM, 0,-1 

CMDDEF SETP*RV, PFLRTN, PO*SPV, 0, +1 

CMDDEF NOSETP#RV, PFLRTN, PO*SPV, 0,-1 

CMDDEF SPF*UN, PFLRTN, PO*SPF, 0, +1 

CMDDEF NOSPF*UN, PFLRTN, P0*SPF, O, -1 

CMDDEF SYSG*BL, PFLRTN, P2*CGR, 2, +1 

CMDDEF NOSYSG*BL, PFLRTN, P2*CGR, 2, -1 

CMDDEF SYSP*RV, PFLRTN, PO*SYS, 0, +1 

CMDDEF NOSYSP*RV, PFLRTN, PO*SYS, 0,-1 

CMDDEF TER#MINAL, PFLRTN, P2*TRM, 2, +i 

CMDDEF NOTER*MINAL, PFLRTN, P2*TRM, 2, -1 

CMDDEF WOR#LD, PFLRTN, P2*WRL, 2, +1 

CMDDEF NOWOR*LD, PFLRTN, P2*WRL, 2, -1 

CMDDEF GRO*UP, PFLRTN, P2*GRP, 2, +1 



i 

i 
t 

i 
i 
i 



» c 

k 



} 



i 

( 
l 
( 
i 
t 
< 

i 
t 
( 
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( 
\ 

i 
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58 000716 
■so nr\r\-rnn 

w r www/' »-*w 

60 000742 

61 000754 

62 000766 

63 001000 

64 001012 

65 001024 

66 001036 

67 001050 

68 001062 

69 001074 
vn noting 

t W WW**. WW 

71 001120 

72 001132 

73 001144 

/ -T WW X X WUJ 

75 001170 

76 001202 
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CMDDEF N0GRQ*UP, PFLRTN> P2*GRP, 2, -1 

CMDDEF SAM*E, PFLRTN, P2*SAM, 2, +1 

CMDDEF N0SAM*E, PFLRTN, P2*SAM, 2, -1 

CMDDEF SUB#PR0CESS, PFLRTN, P2*VIR, 2, +1 

CMDDEF N0SUB#PR0CESS, PFLRTN, P2*VIR, 2, -1 

CMDDEF VIR*TUAL, PFLRTN, P2*VIR, 2, +2 

CMDDEF N0VIR*TUAL, PFLRTN, P2*VIR, 2, -2 

CMDDEF UP1, PFLRTN, P2*UP 1,2, +1 

CMDDEF N0UP1, PFLRTN, P2*UP 1,2, -1 

CMDDEF UP2, PFLRTN, P2*UP2, 2, +1 

CMDDEF N0UP2, PFLRTN, P2*UP2, 2, -1 

CMDDEF UP3, PFLRTN, P2*UP3, 2, +1 

CMDDEF N0UP3, PFLRTN, P2*UP3, 2, -1 

CMDDEF UP4, PFLRTN, P2*UP4, 2, +1 

CMDDEF N0UP4, PFLRTN, P2*UP4, 2, -1 

CMDDEF NONE, PFLNON, 0, 0, -2 

CMDDEF STA*NDARD, PFLSTD, 0, 0> +2 

CMDDEF STD, PFLSTD, 0, 0, +2 
TBLEND 



i 



I 

I 
< 

< 

i 

< 

€ 



i 
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3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



000000 
000002 
000004 
000006 
000010 
000012 

UUUUlt 

000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 



000040 
000042 
000044 
000046 
000050 



000052 
000054 
000056 
000060 



000064 
000072 
000074 
000102 



000104 
000106 
000110 
000112 
000114 
000116 
000120 
000122 
000124 
000132 



000062 
000113 
000156 
000206 
000226 
000454 
001130 
002260 
003410 
003720 
004540 
007020 
011300 
016040 
022600 
045400 



000 126 
000010 
000000 
000000 
0000000 



000000 
000000 
000000 
035164 000000 



000000 000000 

000000 

000000 000000 

000000 



100076 
100105 
012240 
012276 
012305 
0x3630 
013666 
013675 
075250 
075273 
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. SBTTL Data areas 

Data areas 

Table used to convert terminal speeds into speed code values 


1 

3 (134. 5) 
4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 

17 



SPDVAL: 


. WORD 


50. 




. WORD 


75. 




. WORD 


110. 




. WORD 


134. 




. WORD 


150. 




. WORD 


300. 




. WORD 


600. 




. WORD 


1200. 




. WORD 


1800. 




. WORD 


2000. 




. WORD 


2400. 




. WORD 


3600. 




. WORD 


4800. 




. WORD 


7200. 




. WORD 


9600. 




. WORD 


19200. 


> EMT 


argument 


block 


PEKEMT: 


. BYTE 


0, 126 




. WORD 


10 


PEKADR: 


. WORD 





PEKSIZ: 


. WORD 







. WORD 


BLKO 


i Region Definition I 



INDRDB: . WORD 

. WORD 

. WORD 

. RAD50 /IND 



/ 



•Sub function code 

; Address of data within kernel 

; Number of bytes to move 

i Buffer where data is to be stored 



; Region ID 
> Region size 
> Status flags 
> Name of region 



Words to hold privilege flags 
000000 PFSO: . WORD 0, 0, 0, O 
000000 PFCO: . WORD 0. 0, 0, 



Misc data 



014644 000000 



R50TT0: 

R50TT7: 

R50CL: 

R50CL0: 

R50CL7: 

R 50C 1 : 

R50C10 

R50C17 

BOTHAN 



. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 
. RAD50 



/TTO/ 

/TT7/ 

/CL/ 

/CLO/ 

/CL7/ 

/CI/ 

/CIO/ 

/C17/ 

/SY ddd 



SYS/ ;SY and ddd replaced during DOSTOP 



( 
I 
t 

i 
i 

t 

f 

c 
I 
I 

( 
i 
« 
i 
I 
i 
( 

4 
i 
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55 


000134 




56 






57 






58 






59 


000146 


000 


60 


000147 


000 


61 







. EVEN 



i 
f 



INSSPC: . BLKW 5 i Program spec beging checked for install 

; Byte data 

' f 

NEGFLG: .BYTE > Flag to indicate a value should be negated * 

SJSPPN: .BYTE : Flag to indicate PPN display on SHOW JOBS 

I 
4 
I 
f 

i 
€ 

f 
( 
C 
i 

i 
i 



C 



TSKMN3 - 


— TSKMON Subrou 


tines 


ACRPRV - 

1 
3 


— Accrue a list 


of pri 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


000150 


010446 




15 


000152 


010546 




16 








17 








IS 








19 


000154 


004767 


000074 


20 








21 








22 








23 








24 


000160 


004767 


014636 


25 


000164 


005005 




26 


000166 


121327 


000050 


27 


000172 


001002 




28 


000174 


005203 




29 


000176 


005205 




30 








31 








32 








33 


000200 


012704 


000000 


34 


000204 


004767 


000476 


35 








36 








37 








38 


000210 


004767 


014606 


39 


000214 


005705 




40 


000216 


001413 




41 


000220 


112300 




42 


000222 


120027 


000051 


43 


000226 


001407 




44 


000230 


120027 


000054 


45 


000234 


001761 




46 


000236 






47 








48 








49 








50 


000246 


012605 




51 


000250 


012604 




52 


000252 


000207 
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. SBTTL ACRPRV — Accrue a list of privileges 

Accrue a list of privilege keywords of the form: 
privilege or (privileged*...]). 

Inputs: 
R3 = Points to start of privilege list. 

Outputs: 
R3 = Points past end of privilege list. 
PFSO. . PFSn = Privilege flags to be set. 
PFCO. . PFCn = Privilege flags to be cleared. 



ACRPRV: MOV 
MOV 



R4, -(SP) 
R5, -<SP> 



Clear the words which will hold the privilege flags 

CALL CLRPRV ; Clear all privilege flags 

Skip over leading spaces and see if privilege list is enclosed 
in parentheses. 

;Skip over spaces 

; Assume list not enclosed in parens 

i Is list enclosed in parentheses? 

; Br if not 

iSkip over parenthesis 

; Remember parentheses enclose list 

Process the next privilege keyword 



CALL 


SKPSPC 


CLR 


R5 


CMPB 


<R3), #'< 


BNE 


1* 


INC 


R3 


INC 


R5 



1*: 



MOV 
CALL 



#PRVHD, R4 
SETWRD 



;Point to table of privilege keywords 
;Process the next privilege keyword 



See if we have reached the end of the list 



CALL 


SKPSPC 


TST 


R5 


BEG 


9* 


MOVB 


<R3)+, RO 


CMPB 


RO, #') 


BEG 


9* 


CMPB 


RO, #', 


BEG 


1* 



9$: 



FAB OR T #EM*CSE 

Finished the privilege list 

MOV (SP)+, R5 
MOV (SP>+, R4 
RETURN 



Skip over spaces 

Is this a multi-item list? 

Br if not 

Get separator character 

End of the list? 

Br if yes 

Comma separator? 

Br if yes — Keep going 

Syntax error 



* 

c 

t 

I 

€ 

i 

< 

( 
4 

i 



TSKMN3 - 


-- TSKMON Subrou 


bines 


CLRPRV - 

1 
n 

c 

3 


-- Clear 


all parsing pri 








4 








5 








6 








7 








8 


000254 


010446 




9 


000256 


010546 




10 


000260 


012704 


000064 ' 


11 


000264 


012705 


000074 ' 


12 


000270 


012700 


OOOOOOG 


13 


000274 


005024 




14 


000276 


005025 




i 5 


000300 


077003 




16 


000302 


012605 




H "7 

J. / 


000304 


012604 




IS 


000306 


000207 
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. SBTTL CLRPRV — Clear all parsing privilege flags 

Clear the words used to hold the privilege flags gotten during parsing. 

Outputs: 
PFSO. . . PFSn and PFCO. . Pf-Cn are set to zero. 



i Words of bits to set 
iWords of bits to clear 
; Get # words to clear 



CLRPR 


V: MOV 


R4, -<SP) 




MOV 


R5, -<SP) 




MOV 


#PFSO, R4 




MOV 


#PFCO, R5 




MOV 


#PVNPW, RO 


2*: 


CLR 


(R4) + 




CLR 


(R5> + 




SOB 


RO, 2* 




MOV 


<SP>+, R5 




MOV 


< SP ) +> R4 




RETURN 





i 
l 
i 

i 
c 
i 

€ 



TSKMN3 - 


— TSKMON Subrou 


tines 


CCSPRV - 

1 
a. 
3 


— Copy 


current 


to set p 








4 








5 








6 








7 








S 








9 


000310 


010046 




10 


000312 


010446 




11 


000314 


010546 




12 


000316 


012704 


OOOOOOG 




000322 


012705 


OOOOOOG 


14 


000326 


012700 


OOOOOOG 


15 


000332 


012425 




16 


000334 


077002 




17 


000336 


012605 




IS 


000340 


012604 




19 


000342 


012600 




20 


000344 


000207 
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t 



SBTTL CCSPRV 



Copy current to set privileges 



CCSPRV is used to copy current privileges to set privileges. 

This is done when running an installed program which is to be locked 

(RUN/LOCK or installed with the LOCK attribute) so that 



the privileges with which it was 
aborting possible command files. 



installed are not cleared when 



CCSPRV: 



1*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
MOV 
MOV 
MOV 
RETURN 



RO, -<SP) 
R4, -(SP) 
R5, -<SP> 
#PRIVCO, R4 
#PRIVSO, R5 
#PVNPW, RO 
<R4>+, (R5) + 
RO, 1* 
<SP)+» R5 
<SP)+, R4 
<SP>+, RO 



» i 






► < 

I « 
I 



t 



< 

f 

i 
< 
« 

t 

I 
I 

< 



TSKMN3 
RSTPRV 



-- TSKMON Subroutines 
— Reset job privileges 
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SBTTL RSTPRV — Reset job privileges 



a. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

i / 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



RSTPRV is called to reset the current job privileges to those 
privileges for the current command file level. 



000346 010146 
000350 010446 
000352 010546 



RSTPRV: MOV 
MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP> 
R5, -<SP) 



000354 
000360 
000364 
000366 
000374 
000376 
000404 
000406 
000412 
000416 
000422 
000424 
000426 



000432 
000436 
000442 
000446 
000450 
000452 



000456 
000464 
000472 
000500 
000502 



000510 
000516 
000524 
000526 



000534 
000536 
000540 
000542 



116701 
005767 
001022 
032761 

W1U1U 

132767 
001012 
012704 
012705 
012700 
012425 
077002 
005067 



012704 
012705 
012700 
012425 
077002 
004767 



016767 
052761 
032767 
001003 
042761 



042761 
032767 
001403 
052761 



012605 
012604 
012601 
000207 



OOOOOOG 
0000000 

0000000 

ooooooc 

0000000 
0000000 
000000G 

OOOOOOG 



O0OOO0G 
000000G 
000000G 



000066 



000000G 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 



1*: 



3*: 



1*: 



If no command file is open noun restore command file privileges 
to set privileges. 

Get current job index number 

Is a command file open now? 

Br if yes 

Is IND being started? 

Br if yes 

INDSTA ; Is IND active? 

Br if yes 

Point to set privileges 

Point to command file privileges 

Get # words to move 

Copy set privileges to command file priv 

Clear all command file attribute flags 

Now copy command file privileges to current privileges 

iPoint to cells with command file privileges 
iPoint to current priv cells 
•> Get # words to move 
j Reset privilege flags 

; Transfer privileges to LSW tables 

Reset program run attribute flags 



MOVB 


C0RUSR,R1 


TST 


CFPNT 


BNE 


3* 


BIT 


#*INDRN, LSW5(R1> 


BNE 


3* 


BITB 


#<IN*ACT! IN*CNT> 


BNE 


3* 


MOV 


#PRIVSO, R4 


MOV 


#PRIVFO, R5 


MOV 


#PVNPW, RO 


MOV 


<R4>+, (R5) + 


SOB 


RO, 2* 


CLR 


AFCF 



MOV 


#PRIVFO, R4 


MOV 


#PRIVCO, R5 


MOV 


#PVNPW, RO 


MOV 


<R4>+, (R5) + 


SOB 


RO, 1* 


CALL 


FIXPRV 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



MOV AFCF, RUNFLG 

BIS #*SCCA, LSW5(R1) 

BIT #AF*CC A, RUNFLG 

BNE 4* 

BIC #*SCCA, LSW5<R1) 



Reset all program run options 

Assume control-C abort suppression wanted 

Does he want to suppress control-C abort? 

Br if yes 

Release SCCA 



See if we need to reenable process windowing 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



4$: 



OOOOOOG OOOOOOG 



BIC 
BIT 
BEG. 
BIS 

Finished 



9*: 



MOV 
MOV 
MOV 
RETURN 



#*NOWIN, LSW11 <R1 ); Assume process windowing is to be enabled 

#AF*NPW> RUNFLG > Are we suppressing process windowing?' 

9* i Br if not 

#*NOWIN, LSW1 KR1 ) > Suspend process windowing 



<SP)+, R4 
(SP)+, Rl 



( 

i 
i 
i 
i 
i 
( 
* 
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TSKMN3 
FIXPRV 
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•- Transfer privilege flags to LSW tables 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



000544 
000546 
000550 



010146 
010246 
116701 



000554 042761 
000562 042761 



000570 016702 

000574 032702 

000600 001006 

000602 052761 

000610 052761 



000616 012602 
000620 012601 
000207 



. SBTTL FIXPRV — Transfer privilege flags to LSW tables 

FIXPRV is called to transfer privilege flags from the PRIVCO 
flag cell into the appropriate LSW cells. It should be called 
any time a privilege change is made to PRIVCO. 



OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



FIXPRV: MOV 
MOV 
MOVB 



Rl# -<SP> 
R2, -<SP) 
CORUSR.Rl 



; Get current job index number 

Initially reset all privilege flags in LSW tables 

BIC #*NOVLN* LSW2(R1 >> Flag that disallows virtual line use 
B I C #*NOVLN> LSW2S < R 1 ) 

Now check privilege flags in PRIVC2 



MOV 
BIT 
BNE 
BIS 
BIS 

Finished 



1*: 



MOV 
MOV 
RETURN 



PRIVC2*R2 > Get current privilege flags 
#P2*VIR, R2 ; Allow use of virtual lines? 
1* ; Br if yes 

#*NOVLN> LSW2(R1 )i Disallow virtual line use 
#*NOVLN, LSW2S ( R 1 > 



<SP>+, R2 
(SP>+, Rl 
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. SBTTL OPTLST — Process list of command options 

Process a list of command options of the form: 
/optionE=value3. . . 

Inputs: 
R3 = Pointer to start of option command string. 
R4 = Pointer to option processing table. 

OPTLST: 

i 

i See if there is another option 

* 

1*: 



000624 



000624 004767 014172 
000630 121327 000057 
000634 00 1 004 



000636 005203 

000640 004767 000042 

000644 000767 



000646 000207 



CALL 
CMPB 
BNE 



SKPSPC 
<R3), #'/ 
9* 



Process the next option 



INC 


R3 


CALL 


SETWRD 


BR 


1* 


i Finished 




9$: RETURN 





iSkip over any spaces 

; Is there another option? 

; Br if not 



; Sk ip past / 

(Process the option 

> Go see if there are more options 



( 

< 

I 

i 
i 

( 
( 

t 



I 



( 






i 

i * 



TSKMN3 
SCNOPS 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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Process a list of command options 



000650 



000650 004767 014146 



000654 105713 
000656 001412 



000660 121327 000057 

000664 001403 

000666 121327 000054 

000672 001001 

000674 005203 



000676 004767 000004 
000702 000762 



000704 000207 



, SBTTL SCNOPS — Process a list of command options 

SCNOPS processes a list of command qualifiers which may be 
separated by spaces* commas, or slashes. 

Inputs: 
R3 - Pointer to start of option command string. 
R4 = Pointer to option processing table. 

SCNOPS: 

Skip over any spaces 
11*: CALL SKPSPC ;Sfcip over spaces 

See if we have reached the end of the command 



TSTB 
BEG 



<R3> 
12* 



/Reached end of command? 

i Br if yes 



Skip over any option separators 



13*: 



CMPB 


<R3),#'/ 


BEQ 


13* 


CMPB 


<R3>, #', 


BNE 


14* 


INC 


R3 



Process an option 



14* 



CALL 


SETWRD 


BR 


11* 


Finished 




RETURN 





> Slash to separate options? 
i Br if yes 

; Comma to separate options? 

> Br if not 

iSkip over delimiter 



; Process the option 

i Go back and check for more options 



( 

i 
t 

i 

l 
i 



i 
i 

< 

€ 
i 

i 
4 
t 

c 

i 

i 

i 
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i 

i 
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i 
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i 



TSKMN3 - 


— TSKMO 


N Subrou 


bines 


MACRO V 


SETWRD - 
1 

o 

C- 

3 


-- Process a SET 


command 


keyword 










4 










5 










6 










7 










8 










9 










10 










11 










12 










1 *3 
J. «_* 


000706 


010446 






14 


000710 


010546 






15 


000712 


010246 






16 










17 










IB 










19 


000714 


004767 


014102 




20 


000720 


010302 






21 


000722 


004767 


004370 




22 


000726 


026767 


000000G 


000000G 


23 


000734 


001005 






24 


000736 


010305 






25 


000740 


004767 


014056 




26 


000744 


112325 






27 


000746 


001376 






28 


000750 


010203 






29 










30 










31 










32 


000752 


004767 


007364 




33 


000756 


103405 






34 










35 










36 










37 


000760 


012602 






38 


000762 


004734 






39 










40 










41 










42 


000764 


012605 






43 


000766 


012604 






44 


000770 


000207 






45 










46 










47 










48 


000772 


005704 






49 


000774 


001404 






50 


000776 








51 


001006 
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. SBTTL SETWRD — Process a SET command keyword 

SETWRD is called to process a keyword associated with a SET command. 
The appropriate processing subroutine is called for the keyword. 

Inputs: 
R3 = Pointer to start of command keyword. 
R4 = Pointer to keyword option list. 

Outputs: 
R3 = Points beyond end of keyword. 



SETWRD: MOV 
MOV 
MOV 



R4, -<SP> 
R5, -<SP> 
R2, - ( SP ) 



[f keyword is preceded by "NO'S append NO to keyword 



4*: 
1*: 



CALL SKPSPC 

MOV R3, R2 

CALL GTRD50 

CMP R5GBUF, R50N0 

BNE 1* 

MOV R3, R5 

CALL SKPSPC 

MOVB <R3>+, (R5) + 

BNE 4* 

MOV R2, R3 

Look up the option keyword 



CALL 
BCS 



SEARCH 
10* 



Skip over leading spaces 

Save keyword pointer 

Accrue the next word 

Is this word "NO"? 

Br if not 

Get pointer into command past "NO" 

Skip up to next word 

Concatenate keyword with NO 

Move all of command 

Get back pointer to keyword 



iLook up keyword in table 
» Br if invalid keyword 



Call routine to process the option 

;Call routine to process the keyword 



MOV 
CALL 



<SP)+, R2 
@<R4>+ 



Finished 



MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, R4 



10*: 



11*: 



Invalid keyword 

TST R4 

BEQ 11* 

FAB OR T #AMBOPT 

FABORT #INVOPT 



Invalid or ambigious keywordT' 
Br if invalid 
Ambigious option 
Invalid keyword 



f 

c 

i 

i 
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t 

i 

i 

% 

€ 

I 

I 
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Process PRIVILEGE option 

. SBTTL PRVOPT — Process PRIVILEGE option 



001016 



001016 004767 014142 



001022 004767 177122 



001026 000207 



Process the PRIVILEGE command option which may take the form: 
PRIVILEGE=privilege or PRIVILEGED 1 ist ) 

Inputs: 
R3 = Pointer past the word "PRIVILEGE". 

Outputs: 
R3 = Points past end of privilege list. 
PFSO. . PFSn = Privilege flags to set. 
PFCO. . PFCn = Privilege flags to clear. 

PRVOPT: 

Equal sign should follow "PRIVILEGE" 

CALL CHKEQ ;Make sure equal sign follows 

Now process the privilege list 

CALL ACRPRV > Accrue the privilege list 

Finished 

RETURN 
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i 
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001030 010546 



001036 
001042 
001044 
001050 
001054 



001056 
001062 
001066 
001070 
001074 
001100 



001102 
001104 



001106 
001114 
001122 
001130 
001136 



001140 
001142 
001146 
001152 
001156 
001160 
001162 



005764 
002002 
012705 
066405 
051415 



0.12705 
005764 
002002 
012705 
066405 
041415 



012605 
000207 



012767 
012767 
012767 
012767 
000207 



010246 
012702 
012700 
012722 
077003 
012602 
000207 



. SBTTL PFLRTN 



Set or clear privilege flags 



PFLRTN is called while parsing a PRIVILEGE list to set or clear 
privilege flag bits. 

Inputs: 
R4 = Pointer to parsing command entry with the following offsets 
having the values shown: 
0<R4) = Privilege flag mask word. 

2<R4) = Offset to privilege word with privilege bit. 
4<R4) = + ==> Enable privilege, - ==> Disable privilege. 

PFLRTN: MOV R5, »<SP> 

First set the flag in the PFSO or PFCO vector 



000064 ' 
000004 

000074 ' 
000002 



1$: 



MOV 
TST 
BGE 
MOV 
ADD 
BIS 



#PFSO, R5 
4(R4) 
1* 

#PFCO, R5 
2<R4),R5 
<R4>, <R5) 



Assume we are setting privilege 
Setting or clearing privilege? 
Br if setting privilege 
Point to clear-flag words 
Point to correct privilege word 
Set correct flag bit 



Now clear the bit in the complementary vector 



000074 
000004 

000064 
000002 



2*: 



MOV 
TST 
BGE 
MOV 
ADD 
BIC 

Finished 



MOV 
RETURN 



#PFCO, R5 
4(R4) 
2$ 

#PFSO, R5 
2<R4), R5 
<R4), (R5) 



<SP)+, R5 



i Assume we are granting privilege 

; Are we setting or clearing privilege? 

> Br if granting privilege 

i Clearing privilege — Clear bit in set vector 

; Point to correct privilege word 

> Clear correct flag bit 



OOOOOOG 176750 
OOOOOOG 176744 
OOOOOOC 176744 
OOOOOOC 176740 



Set standard privileges for a normal job. 

PFLSTD: MOV #PO**NP, PFSO > Grant normal privileges 

MOV #P2**NP, PFSO+2 

MOV #'-C<PO**NP>, PFCOi Remove all other privileges 

MOV #" S C<P2$*NP>, PFCO+2 
RETURN 



Set all privilege flags. 



000064 ' 
OOOOOOG 
177777 



PFLALL: MOV 
MOV 
MOV 

1$: MOV 
SOB 
MOV 
RETURN 



R2, -(SP) 
#PFSO, R2 
#PVNPW, RO 
#177777, (R2} + 
RO, 1* 
(SP)+, R2 



; Point to privilege word 
i Get # privilege words 
; Set all flags 



i 
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i 
i 

i 
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Da 
59 








J-* 1 — ... 
> W J. t?cS 


i" dil 


privilege flags* 


60 
















61 


001164 


010246 




PFLNON: 


MOV 




R2, -<SP> 


62 


001166 


012702 


000074 ' 




MOV 




#PFCO, R2 


63 


001172 


012700 


OOOOOOG 




MOV 




#PVNPW, RO 


64 


001176 


012722 


177777 


1*: 


MOV 




#177777, (R2) + 


65 


001202 


077003 






SOB 




RO, 1* 


66 


001204 


012602 






MOV 




<SP>+, R2 


67 


001206 


000207 






RETURN 





; Point to clear-flag vector 

; Get # privilege words 

; Say all flags are to be cleared 
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7 








8 
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10 








11 








12 








13 








14 








15 








16 


001210 


010067 


000200 


J. / 




U1W1 *+!-» 




IS 


001216 


010546 




19 








20 








21 








22 


001220 


010201 




23 


001222 


012705 


0000000 


24 


001226 


005721 




25 


001230 


001002 




26 


001232 


077503 




27 


001234 


000464 




28 








29 








30 








31 


001236 


010401 




32 


001240 


003002 




33 


001242 


005401 




34 


001244 


005004 




35 








36 








37 








38 


001246 


012705 


000002 ' 


39 








40 








41 








42 


001252 


020365 


000010 


43 


001256 


001046 




44 


001260 


016500 


000006 


45 


001264 


060200 




46 


001266 


036510 


000004 


47 


001272 


001440 




48 








49 








50 








51 


001274 


005704 




52 


001276 


001405 




53 


001300 






54 


001310 


005201 




55 


001312 


020127 


000076 


56 


001316 


101414 




57 


001320 
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SBTTL PRVLST — List names of privileges 



PRVLST is called to list the names of keywords associated with a certain 
set of privilege flags. 

Inputs: 
R2 = Pointer to vector of privilege words. 
R3 = +1/-1 to select keyword(+l) or NOkeyword (~1 ) 
R4 = Starting column number. 

(+ ==s> insert leading comma. - ~-> No leading comma) 
RO = Column number to indent to if we need to wrap around the line. 



Outputs: 
R4 = Updated column number (positive). 



PRVLST: MOV 
MOV 
MOV 



RO, INDCOL 
Rl, ~<SP) 
R5, -(SP) 



■> Save col # to indent to 



See if there are any privileges to list 



10*: 



MOV 
MOV 
TST 
BNE 
SOB 
BR 



R2, Rl 
#PVNPW, R5 
<R1) + 
11* 

R5, 10* 
9* 



Point to privilege flag vector 

Get # words to check 

Any privilege flags set? 

Br if yes 

Check all priv words 

There are not privileges to list 



Save column number information 



11*: 



MOV 
BGT 
NEG 
CLR 



R4, Rl 
5* 
Rl 
R4 



j Get starting column number info 
; Br if leading comma wanted 
; Get positive column number 
; No leading comma wanted 



Initialize pointer to privilege keyword information table 
5*. MOV #PRVHD+2, R5 ; Point to first entry in table 

See if this entry is selected 
1*: 



CMP R3, 10<R5) 

BNE 2* 

MOV 6<R5),R0 

ADD R2> RO 

BIT 4(R5)» (RO) 

BEQ 2* 



Is this the right type of entry? 

Br if not 

Get offset to priv word in vector 

Point to correct privilege word 

Is this privilege flag set? 

Br if not 



This entry is selected, print its keyword 



3*: 



TST R4 

BEG 3* 

. TTYOUT #COMMA 

INC Rl 

CMP R 1 , #62. 

BLOS 6* 

.PRINT #CRLF 



; Need leading comma? 

; Br if not 

; Print comma 

; Count another column 

.Time for a new line?" 

; Br if not 

; Start a new 1 ine 



TSKMN3 • 
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bines 
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~ List 


names of 


privil 


58 


001326 


016704 


000062 


i/7 


001332 


010401 




60 


001334 


005304 




61 


001336 






62 


001346 


077405 




63 


001350 


011504 




64 


001352 


112400 




65 


001354 


001407 




66 


001356 


120027 


000052 


67 


001362 


001773 




68 


001364 






69 


001370 


005201 




70 




000767 




71 








72 








73 








74 


001374 


062705 


000012 


75 


001400 


005715 




76 


001402 


001323 




77 








78 








79 








80 


001404 


010104 




81 


001406 


012605 




82 


001410 


012601 




83 


001412 


000207 




84 


001414 


000000 
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7*: 

6$: 
4*: 



MOV 


INDC0UR4 


MOV 


R4, Rl 


DEC 


R4 


. TTYOUT 


#BLANK 


SOB 


R4, 7* 


MOV 


<R5>,R4 


MOVB 


<R4)+, RO 


BEG. 


2* 


CMPB 


RO, #'■* 


BEQ 


4* 


. TTYOUT 




INC 


Rl 


in m 

OR 


4$ 



Check next entry 



2$: ADD 


#10. , R5 


TST 


(R5) 


BNE 


1* 


i Finished 




MOV 


Rl, R4 


9*: MOV 


<SP)+, R5 


MOV 


(SP)+, Rl 


RETURN 




INDCOL: . WORD 


o 



Get column to indent to 

Reset column counter 

Get # spaces to print 

Print a space 

Indent to desired column 

Get pointer to keyword string 

Get next character of keyword 

Br if finished 

Don't print "#" 

; Print a character 
i Count another column 
; Go print rest 



iPoint to next entry 

; Is there another entry? 

i Loop if yes 



j Return updated column # in R4 
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— Check if we are privileged to access another job 



001416 010146 



001420 120267 0000000 
001424 001457 



001426 020127 O000O0G 

001432 101407 

001434 020127 OOOOOOG 

001440 101004 

001442 032767 OOOOOOG OOOOOOG 

001450 001435 



. SBTTL CKACOJ — Check if me are privileged to access another job 

Determine if the current job is privileged to affect the execution 
of another job. 

Inputs: 
R2 = Line index number of job we want to affect. 

Outputs: 
An error message is printed if access is not allowed. 
C-flag set on return ==> Not allowed to access the job. 

l 

i Always allow access to our own job 



BEG. 



R2, CORUSR 
7* 



; Affecting our own job? 
j Br if yes 



Disallow access to detached jobs without DETACH privilege 

Primary lineT- 1 

Br if so 

Detached line? 

Br if secondary 

Do we have DETACH privilege? 

Br to error return if not 

If we have WORLD privilege we can access any job 



CMP 


Ri, #LSTPL 


BLOS 


1* 


CMP 


Rl» #LSTDL 


BHI 


1* 


BIT 


#P0$DET. PRIVCO 


BEQ 


6* 



001452 032767 OOOOOOG OOOOOOG 1*: 
001460 001041 



BIT #P2*WRL, PRIVC2 > Do we have WORLD privilege? 
BNE 7* ; Br if yes 



001462 116701 OOOOOOG 

001466 126162 OOOOOOG OOOOOOG 

001474 001433 

001476 026201 OOOOOOG 

001502 001430 



Always allow access to our virtual lines and children jobs. 

MOVB CORUSR. Rl > Get our job index number 

CMPB LNPRIM<R1).LNPRIM(R2) ; Do we have the same primary line? 

BEQ 7* ;Br if yes 

CMP LPARNT<R2),R1 > Are we parent to this job? 

BEQ 7* iBr if yes 



See if project numbers of jobs match 



001504 026162 OOOOOOG OOOOOOG 2*: 

001512 001014 

001514 032767 OOOOOOG OOOOOOG 

001522 001020 



CMP LPROJ(Rl), LPR0J(R2) i Do project numbers match? 

BNE 6* iBr if not — We cannot change job 

BIT #P2*GRP. PRIVC2 i Do we have GROUP privilege?" 

BNE 7* iBr if yes 



Project numbers match, check programmer numbers. 



001524 026162 OOOOOOG OOOOOOG 

001532 001004 

001534 03k!76/ OOOOOOG OOOOOOG 

001542 001010 



CMP 
BNE 
BIT 
BNE 



LPR0G(R1 ), LPR0G(R2> i Do programmer numbers match? 

6* i Br if not 

#P2*SAM; PRIVC2 i Do we have SAME privile n e? 

7% i Br if yes 



We cannot access the job 



C 
i 
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CKACOJ — Check if we are privileged to access another job 

58 001544 6$: FERR #EM*CAJ i Cannot access that job 

59 001560 000261 SEC i Signal error on return 

60 001562 000401 BR 9* 

61 ; 

62 > We can access the job 

63 i 

64 001564 000241 7$: CLC > Signal success on return 

65 ; 

66 ; Finished 

67 ; 

68 001566 012601 9*: MOV (SP)+, Rl 

69 001570 000207 RETURN 
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7 








S 








9 








10 


001572 


010046 




11 


001574 


012700 


000000G 


12 


001600 


020027 


0000000 


13 


001604 


103010 




14 


001606 


005760 


0000000 


15 


UUlOld 


001003 




16 


001614 


062700 


0000000 


17 


WW J. 0&.W 


000767 




IS 


001622 


000261 




19 


001624 


000401 




20 


001626 


000241 




21 


001630 


012600 




in 


001632 


000207 
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. SBTTL SPLACT — Check if spooler is active 



SPLACT is called to determine if the spooling system is currently 
active or idle. 

Outputs: 
C-flag set ==> Spooler active 
C~flag clear ==> Spooler idle 



; POINT TO CONTROL BLOCK FOR 1ST SPOOLED DEV 

i CHECKED ALL? 

i BR IF YES 

> ANY PENDING PRINT FILES? 

; BR IF YES 

; POINT TO NEXT DEV CONTROL BLOCK 

; GO CHECK IT 

i SPOOLER IS ACTIVE 

i SPOOLER IS IDLE 



SPLACT: 


MOV 


RO, -(SP) 




MOV 


#SDCB, RO 


4*. 


CMP 


RO, #SDCBND 




BHIS 


2* 




TST 


SDFHD(RO) 




BNE 


3* 




ADD 


#SDCBSZ> RO 




BR 


4* 


3*: 


SEC 






BR 


9* 


2*: 


CLC 




9*: 


MOV 


<SP)+, RO 




RETURN 





i 

i 



i 

( 
I 
I 

< 

« 
* 

4 

i 

c 



I c 



TSKMN3 - 
CHKTTD - 

1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

J. vJ 

14 
15 
16 
17 
18 
19 
20 
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— See if a device name is TT 



001634 020067 OOOOOOG 

001640 001410 

001646 103403 

001650 020067 176232 

001654 101402 

001656 000241 

001660 000401 

001662 000261 

001664 000207 



. SBTTL CHKTTD — See if a device name is TT 

CHKTTD is called to determine if a device name is TT or TTn. 

Inputs: 
RO = Rad50 device name. 

Outputs: 
C-flag set ==> Device name is TT 

Is device TT? 

Br if yes 

Is it in the range TTO to TT7? 

Br if not 

» Device is not TT 

; Device is TT 



CHKTTD: 


CMP 


RO, R50TT 




BEG 


1* 




CMP 


RO, R50TT0 




BLO 


2* 




CMP 


RO, R50TT7 




BLOS 


1* 


2*: 


CLC 






BR 


9* 


1*: 


SEC 




9*: 


RETURN 





1 1 



1 I 

t 
» 4 

i 



I 

i 

< 
I I 

i 



> ( 



TSKMN3 — 
DOSTOP — 



x / 



25 
26 



TSKMON Subroutines 
Stop the system 



3 
4 
5 

6 001666 

7 001672 

8 001674 

9 001676 

10 001702 

11 001706 

12 001710 

13 001714 

14 001720 

15 001724 

16 001726 



ii / »jc; 



IS 001734 

19 

20 

21 

22 001736 

23 001742 

24 001746 
001752 
001756 

27 001760 

28 001764 

29 001770 
30 

31 
32 

33 001774 

34 002000 

35 002004 

36 002010 

37 002014 

38 002020 

39 002026 

40 002046 
41 

42 
43 

44 002050 

45 002106 

46 002110 

47 002116 
48 

49 
50 

51 002124 

52 002144 

53 002146 
54 

55 002156 

56 002214 
57 



016703 
001421 
005002 
071227 
016702 
160302 
010267 

162703 
002423 
020327 

003020 
000415 



016702 
016202 
010267 
116703 
060302 
062702 
010267 
010367 



016703 
116700 
062700 
066300 
010067 



103437 



103417 
016767 



103004 
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the system 



memory. 



OOOOOOG 



000050 
OOOOOOG 

176212 

OOOOOOG 

000036 

000007 



OOOOOOG 
000000G 
176154 
00000 1G 

000036 

OOOOOOG 

OOOOOOG 



OOOOOOG 
00000 1G 
000036 
OOOOOOG 
176104 





. SBTTL 




DOSTOP — Stop t\ 


i " " ■■■ ~ _ 

; We want to 


s 


top the system. 


; Read 


block 





of boot device ir 


i 
DOSTOP : 


MOV 




BOTDEV, R3 i 




BEQ 




2* i 




CLR 




R2 i 




DIV 




#50, R2 ; 




MOV 




BOTDEV, R2 ; 




SUB 




R3, R2 ; 




MOV 




R2, BOTHAN+2 i 




CLR 




BOTUNI i 




SUB 




#36, R3 > 




BLT 




4* ; 




CMP 




R3, #7 i 




BGT 




4* ; 




BR 




3* 



i 
I 

f 

I 



BOOT DEVICE 
SPECIFIED — 



number 
boot device 
from boot device 



GET RAD50 NAME OF 

BR IF NO DEV NAME 

Clear high order 

Get the RAD50 unit 

Copy RAD50 name of 

Remove unit number 

Put name in lookup 

Clear boot unit number 

Convert RAD50 unit to numeric 

Br if less than O 

Compare to valid device unit number 

Br if greater than 7 



BOOT FROM SY: 



Booting from the system device. 



2*: MOV SYINDX,R2 

MOV PNAME<R2),R£ 

MOV R2, BOTHAN+2 

MOVB SYUNIT+1,R3 

ADD R3, R2 

ADD #36, R2 

MOV R2, BOTDEV 

3*: MOV R3, BOTUNI 



GET DEVICE TABLE INDEX # FOR SY DEVICE 

GET RAD50 NAME OF SYSTEM DEVICE 

Put name in lookup 

GET UNIT # OF SYSTEM DISK 

ADD UNIT NUMBER TO BOOT DEVICE NAME 



CONVERT TO RAD50 UNIT 
BOOT FROM THIS DEVICE 
SAVE BOOT DEVICE UNIT 



NUMBER 
# 



Find the device's CSR address. 



4$: 



SYINDX,R3 
SYUNIT+1, RO 
#36, RO 

PNAME(R3), RO 
RO, BOTHAN 



Read 



MOV 

MOVB 

ADD 

ADD 

MOV 

. SERR ; Don 't 

.LOOKUP #XAREA, #1, #BOTHAN > Try 

BCS 99* ; Error 

block 



Get device table index # 
Get system device unit # 
Convert unit # to RAD50 
Add in system device name 
Point to system device 

abort on lookup errors 
to open handler file 
on lookup 



for SY device 



of handler and save information about CSR address 

block of handler 



00000 1C OOOOOOG 



.READW #XAREA, #1,#BLK0, #256. , #0 ; Read 

BCS 99* > Error on read 

MOV BLKO+H. CSR,BOTCSR ; Save CSR 

.CLOSE #1 > Close channel 



info 



; Read the primary and secondary bootstrap. 
> 

.LOOKUP #XAREA,#1,#B0TDEV;D0 NON-FILE-STRUCTURED LOOKUP ON BOOT DEVICE 

BCC 1* ;BR IF LOOKUP SUCCESSFUL 

99*: FABORT #BADBOT i ERROR ON BOOT LOOKUP 

i Read primary driver into memory. 

1*: .READW #XAREA, #1 , #START, #256. , #0; Read primary bootstrap 

. READW #XAREA, #1, #START+512. , #1024. , #2; READ SECONDARY BOOTSTRAP 



c 
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DOSTOP — Stop the system 

58 ; Do special Kmon EMT to reboot. 

59 i <This emt wiii copy the bootstrap to low memory and enter it) 

60 ; 

61 002254 012700 OOOOOOG 5*: MOV #BOTEMT, RO 

62 002260 104375 EMT 375 ; REBOOT 



i 



€ 

f 
< 

t 
4 
I 
I 
i 

t 
4 

( 
( 
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I 
I 



I 

I 

c 

t 

' t 

\ 

I < 

) 
i 

€ 

!« 

> 
l« 

c 

i 

» 

i 

i 

I < 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

12 
13 
14 
15 
16 

•i "7 
X / 

is 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL PUSHCF 



Push a command file 



002262 
002264 
002270 
002276 

002300 
002306 
002310 
0023 1 6 
002322 
002324 
002332 
002340 
002346 
002350 
002356 

002360 
002362 
002364 
002366 
002372 
002376 

002400 
002404 

002422 
002426 

002432 
002436 
002440 
002444 



002456 
002462 

002470 

002474 

002500 

00250 

002506 

002512 

002514 

002516 

002522 



010146 
116701 
032761 
001030 

132767 
001403 
116767 
005767 
001003 
116767 
042761 
032761 
001524 
052761 
000520 

010346 
010446 
010546 
016705 
020527 
103535 



016745 
016745 

012703 
014345 
020327 
101374 



002446 016745 



016145 

016745 
1 1 6767 

016745 
016704 
005204 
I 042704 
012703 
020304 
103005 
020527 
101463 



PUSHCF IS CALLED TO PUSH THE STATUS OF THE CURRENTLY OPEN 
COMMAND FILE ON A STACK SO A DEEPER LEVEL FILE CAN BE OPENED. 
ALL REGISTERS ARE PRESERVED. 



0000000 

OOOOOOG 



OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOC 



PUSHCF: MOV 
MOVB 
BIT 
BNE 

i THERE IS NO 
BITB 
BEG 
MOVB 

11$: TST 
BNE 
MOVB 

8*: BIC 
BIT 
BEQ 
BIS 
BR 

i THERE IS AN 

6$: MOV 
MOV 
MOV 
MOV 
CMP 
BLO 

; DO 



Rl, -<SP) 

C0RUSR,R1 j 
#*CFOPN, LSW4 < R 1 ) ; IS 
6* J BR 

COMMAND FILE OPEN 
# IN* ACT, INDSTA ; 
11* ; 

INDSTA, CF I ND i 
CFPNT ; 

8* i 

INDSTA, CFIND i 



GET USER INDEX # 

A COMMAND FILE OPEN NOW? 
IF YES 
NOW 

IS IND ACTIVE NOW? 
IF NOT 

IND IS ACTIVE, SAVE ITS STATUS 
A COMMAND FILE IN USE NOW? 
IF YES 
SAVE IND STATUS FLAGS 
#CFLFL4, LSW4<R1>; CLEAR MISC COMMAND FILE FLAGS 
#*QT5ET, L5W2(R1>; DOES HE WANT QUIET OR NOQUIET? 
9* ;BR IF NOQUIET WANTED 

#*QUIET, LSW4(R1);SET QUIET 
9* 
OPEN COMMAND FILE WHICH NEEDS TO BE PUSHED 
R3, -<SP> 



BR 
IF 
IS 
BR 



162705 000012 



NOW 



OOOOOOG 
OOOOOOG 

OOOOOOC 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000001 
OOOOOOG 

000002G 



R4, -<SP) 
R5, -<SP> 
CFSP, R5 

R5, #<CFSEND+20 
CFOVFL 
SAVESTATUS TO SAVE FILE 
SUB #10. ,R5 
. SAVEST #XAREA, #CFCHAN, R5 
SAVE BUFFER POINTERS 



; GET SAVE STACK 
<2*PVNPW»i ROOM 



POINTER 
ENOUGH TO 



START PUSH? 



; BR 
NAME 
JNEED 



IF STACK OVERFLOW WOULD OCCUR 



5 WORDS FOR . SAVEST 



Save 



12*: 



Save 



SAVE 



MOV 

MOV 

command 

MOV 

MOV 

CMP 

BHI 

command 

MOV 

QUIET 

MOV 



CFBLK, ~<R5> 
CFPNT, -<R5) 
file privileges 
#PR I VF0+<2*PVNPW>, 



CURRENT FILE BLOCK # 
CURRENT POINTER INTO BUFFER 



R3 ; Point past last privilege word 



-<R3),-<R5) 
R3, #PRIVFO 
12* 

file attribute 
AFCF, -<R5> 
STATUS 

LSW4(R1), -~<RS> 



jPush each privilege word 
; Pushed all yet? 
j Br if more to push 
flags 
; Push attribute flags 



SAVE QUIET FLAG 



OOOOOOG 



Save IND status 

MOV CFIND, -<R5> 
MOVB INDSTA, CFIND 

NOW SAVE INFO ABOUT PARAMETERS 



i PUSH IND STATUS FLAGS 

; SET NEW IND STATUS FOR COMMAND FILE 



?*: 



MOV 


CURPRM, -<R5> 


MOV 


PBFEND, R4 


INC 


R4 


BIC 


#1,R4 


MOV 


#PRMBUF, R3 


CMP 


R3, R4 


BHIS 


1* 


CMP 


R5, #<CFSEND+2 


BLOS 


CFOVFL 



CURRENT PARAMETER POINTER 

ADDR OF END OF PARAMETER STRING 

ROUND UP TO NEXT WORD 

PHTKiT Tn CJTART HP PAP AM STRING 

PUSHED ALL ON STACK? 
BR IF YES 
STACK OVERFLOW? 
BR IF OVERFLOW 



t 

c 

( 

4 
i 
i 
« 
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58 002524 

59 002526 

60 002530 
61 

62 002532 

63 002534 

64 002540 

65 002542 

66 002544 

67 002550 

68 002552 

69 002554 

70 002560 

71 002562 

72 002564 

73 002566 

74 002572 
75 

76 002574 

77 002600 

78 002606 

79 002612 

80 002614 

81 002616 
82 

83 002620 

84 002624 

85 002630 

86 002634 

87 002640 

88 002644 

89 002646 

90 002652 

91 002654 
92 

93 002662 

94 002666 

95 002670 
96 

97 

98 002672 



012345 
000771 
010445 

005045 
012703 
005743 
001004 
020327 
101373 
000410 
020527 
101444 
011345 
005743 
020327 
103370 

010567 
042761 
105267 
012605 
012604 
012603 

012700 
004767 
005067 
005067 
012701 
005021 
020127 
103774 
012767 

105067 
012601 
000207 



1* 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



MOV <R3)+,-<R5> 

BR 2* 

MOV R4, -<R5) 

; PUSH PARAMETER POINTERS 

CLR -<R5) 

MOV #LSTPRM, R3 

4$: TST -<R3> 

BNE 3* 

CMP R3, #PRMPNT 

BHI 4* 

BR 5* 

CMP R5, #CFSEND 

BLOS CFOVFL 

MOV (R3),-<R5> 

TST -<R3) 

CMP R3, #PRMPNT 

BHIS 3* 



3*: 



; PUSH PARAMETER STRING 

iPUSH POINTER TO END OF STRING 

PUSH ZERO TO MARK END 

POINT TO LAST PARAM PTR CELL 

IS POINTER IN USE? 

BR IF YES 

CHECKED ALL? 

BR IF NOT 

BR IF NO PARAMETERS DEFINED 

ROOM TO PUSH INFO? 

BR IF STACK OVERFLOW 

PUSH PARAMETER POINTER 

POINT TO NEXT PARAM POINTER CELL 

MORE TO PUSH? 

BR IF YES 



WE HAVE SAVED ALL INFORMATION NEEDED TO RESTART INDIRECT FILE 



5$: 



MOV R5, CFSP iSAVE STACK POINTER 

BIC #*CFOPN, LSW4<R1);SAY NO FILE IS OPEN NOW 

INCB CFNEST ) SAY WE ARE NESTED DEEPTER 

MOV <SP>+, R5 

MOV ( SP ) +, R4 

MOV <SP>+, R3 
SET UP POINTERS FOR NEW COMMAND FILE 



OOOOOOG 

001002 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 



9$: MOV #CFBUF, RO 

CALL CFSTRT 

CLR CFBLK 

CLR CURPRM 

MOV #PRMPNT,R1 

7*: CLR (Rl)+ 

CMP R1,#LSTPRM 

BLO 7* 

MOV #PRMBUF, PBFEND :• SAY 
; Say that IND is not active now 

CLRB INDSTA i SAY 

MOV <SP)+, Rl 

RETURN 



SET POINTER TO COMMAND BUFFER 
INIT POINTER INTO BUFFER 
RESET FILE BLOCK # TO ZERO 
CLEAR PARAM STRING POINTER 
CLEAR ALL PARAM POINTERS 



NO PARAM STRING YET 



IND IS NOT ACTIVE NOW 



; ERROR — OVERFLOW OF FILE SAVE STACK 
CFOVFL: FABORT #CF2DEP 



i 
f 

I 
t 



< 

f 

I 
i 

i 

i 



> 

i 



► 



I 
1 I 

I « 

) 
i 

I 

' i 

!< 



c 
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TSKMN3 - 
POPCF - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 
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002702 
002704 
002710 
002716 
002722 
002724 
002730 
002732 
002740 
002744 
002752 

002754 

002762 
002766 



24 002770 

25 002776 

26 003004 

27 003012 

28 003016 

29 003022 
30 

31 

32 003024 

33 003026 

34 003030 

35 003032 

36 003036 

37 003042 

38 003044 

39 003046 

40 003050 

41 003052 

42 003056 

43 003060 

44 003062 
45 

46 003064 

47 003066 

48 003072 

49 003076 

50 003100 

51 003102 

52 003104 
53 

54 003110 
55 

56 003114 

57 003120 



010146 
116701 
042761 
105767 
001003 
005767 
00 1 563 
116767 
105067 
032761 
001403 



105767 
001016 

042761 
042761 
042761 
004767 
004767 
000526 



010346 
010446 
010546 
016705 
012703 
012504 
001402 
010423 
000774 
020327 
103002 
005023 
000773 

012504 
010467 
020427 
101402 
012544 
000773 
012567 

012567 

012704 
040461 



OOOOOOG 
0000000 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

000570 

175324 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



SBTTL POPCF 



Pop a command file 



POPCF IS CALLED TO CLOSE THE CURRENTLY OPEN INDIRECT COMMAND 
FILE AND REOPEN THE ONE WHICH IS NEXT HIGHER IN THE STACK. 
ALL REGISTERS ARE PRESERVED. 



POPCF: 



OOOOOOG 



OOOOOOG 
OOOOOOG 



10*: 



MOV 

MOVB 

BIC 

TSTB 

BNE 

TST 

BEG 

MOVB 

CLRB 

BIT 

BEG 



Rl, -<SP) 

C0RUSR,R1 i GET USER INDEX NUMBER 

#*CFCCL, LSW4<R1>; SAY WE HAVE FINISHED ANY CCL COMMAND 



CFNEST 

10* 

CFPNT 

9* 

CFIND, INDSTA 

CFHOLD 

#*CFOPN, LSW4(R1) 

1* 



Any nested command files? 

Br if yes 

ANY INDIRECT FILES IN USE? 

BR IF NOT 

RESTORE IND STATUS FLAGS 

CLEAR ANY COMMAND FILE HOLDING CHAR 

IS SFILE CHANNEL OPEN NOW? 

BR IF NOT 



CLOSE CURRENTLY OPEN FILE 
. CLOSE #CFCHAN 



1*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 



SEE IF THERE 

TSTB 

BNE 
THERE ARE NO 

BIC 

BIC 

BIC 

CALL 

CALL 

BR 
REOPEN NEXT 



i CLOSE THE FILE 
IS A HIGHER LEVEL FILE TO RESTORE 
CFNEST J ANY FILES ON STACK NOW? 

2* > BR IF YES 

HIGHER LEVEL FILES 
#<*CFOPN!*CFALL!*CFSOT>, LSW4<R1>; CLEAR COMMAND FILE FLAGS 



#*NOIN, LSW3<R1) 
#*SUCF, LSW9CR1) . 
CFSTOP 
RSTPRV 
9* 
HIGHER LEVEL FILE 



Allow input to be accepted for line 
Say start-up command file finished 
Suspend command file input- 
Reset command file privileges 



>*: 



4$: 



RESTORE PARAMETER POINTERS 

MOV R3, -<SP> 

MOV R4, -<SP) 

MOV R5, -<SP> 

MOV CFSP, R5 

MOV #PRMPNT. R3 

MOV <R5)+, R4 

BEG 3* 

MOV R4, (R3) + 

BR 4* 

3*: CMP R3,#LSTPRM 

BHIS 5* 

CLR (R3)+ 

BR 3* 

i RESTORE PARAMETER STRING 



GET STACK POINTER 

POINT TO PARAM POINTER CELLS 

GET A PARAMETER POINTER 

BR IF END OF LIST HIT 

RESTORE POINTER 

ZERO ALL OTHER PARAM POINTERS 



5*: MOV 
MOV 

7*: CMP 
BLOS 
MOV 
BR 

6* : MOV 

; Restore IND 
MOV 



<R5>+,R4 

R4, PBFEND 

R4, #PRMBUF 

6* 

<R5>+, -<R4) 

7* 

<R5) 



(R5>- 



RESET COMMAND FILE 



CURPRM 
flags 
CFIND 
CONTROL 



MOV #CFLFL4, R4 
BIC R4, LSW4(R1) 



GET ADDRESS OF END OF STRING 

RESTORED ALL OF PARAM STRING? 

BR IF YES 

POP STRING OFF STACK 

POP POINTER INTO STRING 



i RESTORE IND STATUS FLAGS 
FLAGS 

; GET MIST CONTROL FLAGS 
i CLEAR THOSE FLAGS 



i 
I 

f 



i 

i 

■; 
c 

t 
t 

i 

€ 

< 
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58 003124 

59 003126 

60 003130 
61 

62 003134 
63 

64 003140 

65 003144 

66 003146 

67 003152 

68 003154 
69 

70 003160 

71 003162 

72 003166 
73 

74 003172 

75 003210 
76 

77 003214 
78 

79 003254 

80 003260 

81 003264 

82 003272 

83 003274 

84 003276 

85 003300 

86 003302 



005104 

052561 

012567 

012700 
012520 
020027 
103774 
004767 

012500 
004767 
012567 



010567 
105367 
052761 
012605 
012604 
012603 
012601 
000207 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 
175166 



000444 
OOOOOOG 



062705 000012 
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COM R4 ; MASK ALL BUT THOSE FLAGS 

BIC R4, (R5) 

BIS (R5)+, LSW4(R1) ; SET DESIRED COMBINATION 
Restore command file attribute flags 

MOV <R5)+>AFCF ; Restore attribute flags 
Restore command file privilege flags 

;Point to privilege vector 
11*: MOV (R5)+, (R0>+ > Pop a privilege flag 

:2*PVNPW>; Popped all? 
i Loop if not 
> Reset some flags 
; RESTORE BUFFER POINTER INFORMATION 
o*. riuv tH5;+iKU iPUiimcn Amu uvrr Ek 

CALL CFSTRT > Set command file buffer pointer 

MOV <R5>+, CFBLK ; CURRENT FILE BLOCK NUMBER 
; NOW REOPEN THE INDIRECT COMMAND FILE 
. REOPEN #XAREA, #CFCHAN> R5 

ADD #10. »R5 ; POP FILE NAME INFO OFF STACK 

> REREAD CURRENT BUFFER 

. READW #XAREA, #CFCHAN> #CFBUF, #256. , CFBLK 
; FINISHED RESTORING FILE 



MOV 


#PRIVFO, RO 


MOV 


(R5)+, (R0> + 


CMP 


RO, #PRIVFO+ 


BLO 


11* 


CALL 


RSTPRV 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



9*: 



MOV R5, CFSP ; SAVE UPDATED STACK POINTER 

DECB CFNEST ; SAY ONE LESS FILE ON STACK 

BIS #*CFQPN, LSW4(R1)jSAY CHANNEL IS OPEN 

MOV <SP)+,R5 

MOV (SP)+, R4 

MOV <SP)+, R3 

MOV (SP)+,Rl 

RETURN 



I 

I 

i 
i 

* 

€ 
f 

f 

i 
4 

I 

( 

« 

t 
I 
( 



TSKMN3 
ABRTCF 



— TSKMON Subroutines MACRO V05. 05 Thursday 19-Jan-B9 09: 16 Page 22 

— Abort all command files 



. SBTTL ABRTCF 



Abort all command files 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



ABRTCF is called to close all open indirect command files 
including those on the stack. 

If IND is active< only command files under IND are aborted. 
All registers ar& preserved. 



003304 010146 

003306 116701 OOOOOOG 

003312 016700 OOOOOOG 

003316 001404 

003320 004767 000306 



ABRTCF: MOV 
MOVB 
MOV 
BEG 
CALL 
CLR 



R 1 , - < SP > 

C0RUSR,R1 

CFSPND, RO 

2* 

CFSTRT 

CFSFND 



; GET USER INDEX # 

>Is there a suspended command file? 

; Br if not 

; Restart command file input 

i No more suspended command file 



Abort all nested command files 



003330 105767 OOOOOOG 2$: 

003334 001003 

003336 005767 OOOOOOG 

003342 001407 

003344 132767 OOOOOOG OOOOOOG 3*: 

003352 001003 

003354 004767 177322 

003360 000763 



TSTB 


CFNEST 


BNE 


3* 


TST 


CFPNT 


BEQ 


4* 


BITB 


#IN*ACT, INDSTA 


BNE 


4* 


CALL 


POPCF 


BR 


2* 



Any nested command files? 

Br if yes 

IS AN INDIRECT FILE OPEN? 

BR IF NOT 

Have me reached the level of INDT' 

Br if yes — Leave IND in control 

CLOSE IT 



003362 042761 
003370 042761 
003376 042761 



OOOOOOG OOOOOOG 4*: 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



003404 105067 OOOOOOG 



003410 004767 174732 



003414 012601 
003416 000207 



Reset misc command file related values 

BIC #*CFABT, LSW6(Rl)iSAY ALL COMMAND FILES HAVE BEEN ABORTED 

BIC #*NTGCC,LSW9(R1>; Clear saved ctrl-C flag 

BIC #*CFDCC, LSW4(R1 ) 

CLRB UERSEV i CLEAR USER ERROR FLAG 

Reset command file privileges from set privileges 

CALL RSTPRV ; Reset current privileges 

Finished 

MOV <SP>+, Rl 
RETURN 
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— Abort execution of IND and nested command files 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



. SBTTL INDABT — Abort execution of IND and nested command files 

INDABT is called to abort the execution of IND and of any nested 
command files. 



003420 010146 
003422 116701 



003426 016700 

003432 001404 

003434 004767 

003440 005067 



003444 
003450 
003452 
003456 
003460 
003466 



005767 
001403 
004767 
000772 
042761 
105067 



0000000 



OOOOOOG 

000172 

OOOOOOG 

OOOOOOG 

177224 



INDABT: MOV 
MOVB 



R 1 , - < SP > 

CORUSR, Rl 



Close command files 



2*: 



003472 105067 

003476 042761 

003504 042761 

003512 042761 



OOOOOOC OOOOOOG 1$. 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



MOV 

BEQ 

CALL 

CLR 

TST 

BEQ 

CALL 

BR 

BIC 

CLRB 

Stop IND 

CLRB 
BIC 
BIC 
BIC 



CFSPND, RO 

2* 

CFSTRT 

CFSPND 

CFPNT 

1* 

POPCF 



i Get user index # 



i Is there a suspended command file? 

; Br if not 

; Restart suspended command file 

; No more suspended command file 

;Is an indirect file open? 

; Br if not 

; Close it 



#*CFKIL!$CFABT, LSW6<R1 ); Say command files have been aborted 
UERSEV ; Clear user error flag 



INDSTA i Say IND is finished 

#*INDRN. LSW5<R1 ); Say IND is not running now 
#*NTGCC, LSW9<R1); Clear saved ctrl-C flag 
#*CFDCC,LSW4<R1> 



003520 004767 174622 



003524 012767 OOOOOOC 00000 1C 

003532 

003552 103413 

003554 012767 OOOOOOG 00000 1C 

003562 



003602 012601 
003604 000207 



Reset privileges 

CALL RSTPRV i Reset privileges 

Eliminate IND global PLAS region 



MOV 
. CRRG 
BCS 
MOV 
. ELRG 



Finished 



3*: 



MOV 
RETURN 



#<RS. GBLIRS. PVT>, INDRDB+R. GSTS ; Set status flags in RDB 

#XAREA, #INDRDB ; Try to attach to IND region 

3* i Br if cannot attach 

#RS. EGR, INDRDB+R. GSTS ; Set eliminate-global-reg ion flag 

#XAREA, #INDRDB ; Eliminate the region 



<SP)+, Rl 



i 
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i 
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TSKMN3 - 
CFSTOP - 
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10 
11 
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21 
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— Stop input from a command file 



003606 010046 



003610 005067 0000000 



003614 016700 0000000 

003620 042760 OOOOOOG 0000000 



003626 012600 
003630 000207 



. SBTTL CFSTOP — Stop input from a command file 
Zero CFPNT to say input is not coming from a command file. 
CFSTOP: MOV RO, -<SP> 

Say input not coming from a command file 

CLR CFPNT i Clear command file buffer pointer 

Reset status flags in RMON cell 



MOV 

BIC 

Finished 



CXTRMN, RO <Get virtual address of RMON 
#CFACFL, R*CFST(RO> ; Say input not from CF 



003632 010046 



003634 010067 OOOOOOG 
003640 001405 



003642 016700 OOOOOOG 

003646 052760 OOOOOOG OOOOOOG 



003654 012600 
003656 000207 



MOV <SP)+,R0 
RETURN 

.SBTTL CFSTRT — Start input from a command file 

Store a buffer pointer into CFPNT to start command file input. 

Inputs: 
RO = Value to be stored into CFPNT 

CFSTRT: MOV RO, -<SP) 

Store buffer pointer into CFPNT 



MOV 

BEQ 



RO, CFPNT 
9* 



Set CF buffer pointer 

Br if not starting command file 



Set status flags in RMON cell 



MOV 
BIS 

Finished 



CXTRMN, RO iGet RMON address 

#CFACFL, R*CFST<RO); Set command-file-active flags 



9$: MOV <SP>+, RO 
RETURN 
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Squeeze space in command file buffer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



003660 010246 
003662 010346 
003664 010446 



003666 012703 001000G 
003672 016704 OOOOOOG 
003676 001411 



003700 010302 

003702 020204 

003704 101404 

003706 1 1 4200 

003710 001774 

003712 110043 

003714 000772 

003716 010367 OOOOOOG 



003722 010300 

003724 012704 

003730 020304 

003732 101402 

003734 105043 

003736 000774 



003740 012604 

003742 012603 

003744 012602 

003746 000207 



OOOOOOG 



. SBTTL CFSQEZ — Squeeze space in command file buffer 

CFSQEZ is called to squeeze all remaining commands in the current 
command file buffer to the top of the buffer. 

Nulls are removed and all pending commands are moved up against 
the top of the buffer. 

Inputs: 
CFPNT: 0==>Command file not active. 

Non-zero==>Points to start of pending commands in buffer. 

Outputs: 
CFPNT: Points to start of pending commands in buffer. 
RO - Top of free area in buffer. 



CFSQEZ: 



MOV 
MOV 
MOV 



R2, -<SP) 
R3> -<SP> 
R4, -<SP> 



Determine if there are any pending commands in the command file buffer 



MOV #CFBUF+512. , R3 
MOV CFPNT, R4 
DEQ 4* 



POINT PAST TOP OF BUFFER 

GET POINTER TO PENDING COMMANDS 

BR IF THERE ARE NO PENDING COMMANDS 



There are pending commands in the buffer. 
Move them to the top of the buffer. 

GET POINTER TO TOP OF BUFFER 
1*: CMP R2, R4 i HAVE WE MOVED ALL PENDING COMMANDS? 

BR IF YES 
GET NEXT CHAR 
AND SKIP NULLS 
PACK INTO TOP OF BUFFER 



6*: 

4*: 

3*: 



MOV 


R3, R2 


CMP 


R2, R4 


BLOS 


6* 


MOVB 


-<R2>, RO 


BEQ 


1* 


MOVB 


RO, -<R3) 


BR 


1* 


MOV 


R3, CFPNT 



i SAVE NEW COMMAND FILE POINTER 

Null fill buffer from base up to start of pending commands 

SAVE POINTER PAST TOP OF FREE AREA 

POINT TO BASE OF BUFFER 

HAVE WE FILLED TO BASE? 

BR IF YES 

NULL FILL BUFFER 



5*: 



MOV 


R3, RO 


MOV 


#CFBUF, R4 


CMP 


R3, R4 


BLOS 


5* 


CLRB 


-<R3> 


BR 


3* 


i n i s h e d 




MOV 


<SP>+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 
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Check to see if log file is on specified dev 



Paqe 



. SBTTL LOGCHK 



Check to see if log file is on specified dev 



3 
4 
5 
6 
7 
8 
9 
10 

11 003750 

12 003752 

13 003754 

14 003756 
15 

16 
17 

18 003760 

19 003766 
20 



LOGCHK is called to determine if the log file is open to a specified 
device or to a subdevice contained within the specified device. 
If the log file is on the specified device* print a warning message 
and close the log file. 

Inputs: 
R5 = RadSO name of device. 



010246 
010346 
010446 
010546 



032767 
001445 



LOGCHK: MOV 
MOV 
MOV 
MOV 



OOOOOOG OOOOOOG 



003770 
003774 



23 
24 
25 
26 
27 
28 
29 

30 003776 

31 004002 
32 

33 
34 

35 004004 

36 004006 

37 004010 

38 004014 

39 004016 
40 

41 
42 

43 004020 

44 004022 

45 004026 

46 004032 

47 004034 

48 004040 

49 004044 

50 004046 

51 004052 

52 004054 

53 004060 
54 

55 
56 
57 



004767 
103442 



005634 



020467 
001406 



000300 
050004 
020467 
001032 
000421 



006300 
016004 
016002 
010203 
066003 
020467 
001016 
026702 
103413 
026703 
103010 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



R2, -<SP) 
R3, -(SP) 
R4, -<SP) 
R5, -<SP> 



See if the log file is currently open 

BIT #LF*OPN, LOGFLG ;Is the log file currently open? 

BEQ 9* ;Br if not 

The log file is open. 

Convert device name into device # and unit # 



BCS 



CHKDEV 
9* 



; Cvt name to dev # and unit # 

•> Br if don't recognize name 



At this point/ RO = unit number. R4 = device index number. 
Determine if this is a physical or logical disk. 



CMP 

BEQ 



R4, LDDEVX 
1* 



This is a physical disk 



SWAB 


RO 


BIS 


RO, R4 


CMP 


R4, LOGDVU 


BNE 


9* 


BR 


8* 



This is a logical disk 



1*: 



ASL 


RO 


MOV 


LDPDEV(RO), R4 


MOV 


LDBASE(R0),R2 


MOV 


R2, R3 


ADD 


LDSIZE(RO>> R3 


CMP 


R4, LOGDVU 


BNE 


9* 


CMP 


LOGBAS, R2 


BLO 


9* 


CMP 


LOGBAS, R3 


BHIS 


9* 



j Is this a logical disk? 
i Br if yes 



Get unit # to high-order byte 
Combine device and unit # 
Same device as log file? 
Br if not 
Br if yes 



{Convert unit # to word table index 
i Get physical dev # and unit # 
; Get base block # of logical disk 

;Get top block # of logical disk 

; Is log file on same physical disk? 

; Br if not 

; Is log file on log disk within this disk? 

; Br if not 



Log file is on the specified device 

Pring a warning message and close the log file. 



i 
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LOGCHK — Check to see if log file is on specified dev 



58 004062 

59 004076 
60 

61 
62 

63 004102 

64 004104 

65 004106 

66 004110 

67 004112 



8*: 



0000 1; 



012605 
012604 
012603 
012602 
000207 



9*: 



FWARN 


#TM*CLQ 


CALL 


L00CL3 


inished 




MOV 


<SP)+, R5 


MOV 


<SP>+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





■Say we are closing the log file 



>\^iOSe tne log rxxe 



TSKMN3 - 
LOGCLS - 

1 



- TSKHON Subroutines 

- Close the log file 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 



004114 
004116 
004124 



004126 
004132 
004134 
004140 
004142 
004144 
004150 
004152 
004154 
004212 
004214 



004230 
004234 
004242 



004250 
004252 



010246 
032767 
001451 



016702 
001436 
032702 
001401 
105022 
162702 
001427 
006202 

103006 



005067 
042767 
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. SBTTL LOGCLS — Close the log file 
LOGCLS is called to close the log file for the current job. 



LOGCLS: MOV 
OOOOOOG OOOOOOG BIT 

BEG. 



R2, -<SP) 

#LF*OPN, LOGFLG ;Is the log file open? 

9* > Br if not 



Log file is open* write last buffer to file 



OOOOOOG 
000001 

OOOOOOG 



1*: 



MOV 


LOGPTR, R2 


BEQ 


2* 


BIT 


#1, R2 


BEQ 


1* 


CLRB 


(R2) + 


SUB 


#LOGBUF, R2 


BEG 


2* 


ASR 


R2 


. WRITW 


#XAREA, #L0 


BCC 


2* 


FERR 


#LGOVER 



OOOOOOG 
OOOOOOG 



?*: 



OOOOOOG 



Close the log file 

CLR LOGPTR 

BIC #LF*OPN, LOGFLG 

. CLOSE #LOGCHN 

Finished 



Get buffer pointer 

Br if file overflow occurred 

Do we need to put in a null at end? 

Br if not 

Put null to fill out last word 

Get # bytes in log buffer 

Br if buffer is empty 

Get # words in buffer 
fLOGBUF, R2, LOGBLK ; Write block to log 
; Br if write ok 
; Log file overflow 



> Say we are no longer logging 
; Say log file is closed 
iClose log file channel 



€ 
f 
I 
I 
f 
f 



012602 
000207 



9*: 



MOV 
RETURN 



<SP)+, R2 



; < 



i 
C 
4 
i 
t 
I 



TSKMN3 — TSKMON Subroutines MACRO 
ACRDEC — Accrue a decimal value 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 004254 
15 
16 
17 

18 004256 

19 004262 

20 004266 

21 004270 

22 004272 
23 

24 
25 

26 004276 

27 004302 

28 004306 

29 004310 

30 004314 

31 004316 
32 

33 
34 

35 004322 

36 004324 

37 004330 

38 004332 

39 004336 
40 

41 
42 

43 004340 

44 004342 

45 004344 

46 004350 

47 004352 

48 004354 

49 004360 

50 004362 

51 004366 
52 

53 
54 

55 004370 

56 004374 

57 004376 
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010446 



004767 
121327 
001003 
005203 
004767 



105067 
121327 
001005 
105267 
005203 
004767 



111300 
120027 
103432 
120027 
101027 



005001 
112300 
120027 
001414 
010004 
162704 
100407 
020427 
003004 



070127 
060401 
000761 



010540 
000075 



010524 

173644 
000055 

173632 

010500 



000060 
000071 



000056 

000060 
000011 



000012 



SBTTL ACRDEC 



Accrue a decimal value 



ACRDEC is called to accrue a decimal number. 

Leading spaces and an optional leading equal sign are skipped. 

Inputs: 
R3 = Pointer to start of number. 

Outputs: 
RO = Delimiter hit at end of number. 
Rl = Accrued value. 
R3 = Pointer to delimiter at end of number. 

ACRDEC: MOV R4»-<SP> 

Skip leading spaces and an optional leading equal sign 

iSkip over leading spaces 

> Is there an equal sign? 

> Br if not 

»Skip past the equal sign 

>Skip spaces following equal sign 



CALL 


SKPSPC 


CMPB 


<R3>, #' = 


BNE 


3* 


INC 


R3 


CALL 


SKPSPC 



See if number is preceded by a minus sign 



3*: 



CLRB 


NEGFLG 


CMPB 


<R3),#' 


BNE 


5* 


INCB 


NEGFLG 


INC 


R3 


CALL 


SKPSPC 



5$: 



; Assume number should not be negated 

; Is there a leading minus sign? 

; Br if not 

; Remember to negate value 

iSkip past minus sign 

iSkip over spaces 



Make sure first character of number is a decimal digit 



> Get first character of number 
; Is 1st character a digit? 
; Br if not 

; Br if not 



MOVB 


(R3),R0 


CMPB 


RO, #'0 


BLO 


4* 


CMPB 


RO, #'9 


BHI 


4* 



Accrue the number 



>*: 



CLR 


Rl 


MOVB 


<R3>+, RO 


CMPB 


RO, #'. 


BEQ 


6* 


MOV 


RO, R4 


SUB 


#'0, R4 


BMI 


1* 


CMP 


R4, #9. 


BGT 


1* 



i ACCRUE VALUE IN Rl 
; GET NEXT CHARACTER 
; Decimal pointer delimiter? 

; Br if yes 

j CONVERT DIGIT TO BINARY VALUE 
; BRANCH IF CHAR NOT A DIGIT 
; IS IT A DIGIT? 
i BRANCH IF NOT 



Multiply previous value by 10 and add new digit. 



MUL 
ADD 
BR 



#10. ,R1 
R4, Rl 
2* 



* MULTIPLY BY 10. 

iADD IN NEW DIGIT VALUE 
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TSKMN3 - 


-- TSKMQN Subroutines 


AC R DEC - 


— Accrue a decimal val 


58 






\J f 






60 






61 


004400 


005303 


62 


004402 


105767 173540 


63 


004406 


001401 


64 


004410 


005401 


65 


004412 


012604 


66 


004414 


000207 


67 






68 






69 






70 


004416 
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1*: 


DEC 


R3 


6*: 


TSTB 


NEGFLG 




BEQ 


9* 




NEG 


Rl 


9*: 


MOV 
RETURN 


(SP>+, R4 




Error — Exp 


ected num 



; POINT TO DELIMITER 

j Should me negate the value 

i Br if not 

> Negate the value 



4$: FABORT #EM*ENM ; Expected number is missing 



I f 
I 

I 

i 

i 

i 
t 
» f 
c 
i 

f 

« 
t 

i 

t 
t 

c 



TSKMN3 • 


— TSKMON Subrou 


tines 


ACROCT - 

1 
n 

c 

3 


— Accrue an oct 


a 1 valu 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


004426 


010446 




15 








16 








17 








18 


004430 


004767 


010366 


19 


004434 


121327 


000075 


20 


004440 


001003 




21 


004442 


005203 




22 


004444 


004767 


010352 


23 








24 








25 








26 


004450 


105067 


173472 


27 


004454 


121327 


000055 


28 


004460 


001005 




29 


004462 


105267 


173460 


30 


004466 


005203 




31 


004470 


004767 


010326 


32 








33 








34 








35 


004474 


111300 




36 


004476 


120027 


000060 


37 


004502 


103432 




38 


004504 


120027 


000067 


39 


004510 


101027 




40 








41 








42 








43 


004512 


005001 




44 


004514 


1 1 2300 




45 


004516 


010004 




46 


004520 


162704 


000060 


47 


004524 


100407 




48 


004526 


020427 


000007 


49 


004532 


003004 




50 


004534 


072127 


000003 


51 


004540 


060401 




52 


004542 


000764 




53 








54 


004544 


020427 


000011 


55 


004550 


101407 




56 


004552 


005303 




57 


004554 


105767 


173366 
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SBTTL ACROCT 



Accrue an octal value 



ACROCT is called to accrue an octal value. 

Leading spaces and an optional leading equal sign are skipped. 

Inputs: 
R3 = Pointer to start of number. 

Outputs: 
RO = Delimiter hit at end of number. 
Rl = Accrued value. 
R3 = Pointer to delimiter at end of number. 

ACROCT: MOV R4, -<SP) 

Skip leading spaces and an optional leading equal sign 

iSkip over leading spaces 

i Is there an equal sign? 

; Br if not 

;Skip past the equal sign 

;Skip spaces following equal sign 

See if number is preceded by a minus sign 

3*: CLRB NEGFLG > Assume number should not be negated 

; Is there a leading minus sign? 
i Br if not 

; Remember to negate value 
;Skip past minus sign 
>Skip over spaces 

Make sure first character of number is an octal digit 



CALL 


SKPSPC 


CMPB 


<R3>, # 


BNE 


3* 


INC 


R3 


CALL 


SKPSPC 



CLRB 


NEGFLG 


CMPB 


<R3>,#' 


BNE 


5* 


INCB 


NEGFLG 


INC 


R3 


CALL 


SKPSPC 



5*: 



MOVB 


<R3),R0 


CMPB 


RO, #'0 


BLO 


4* 


CMPB 


RO, #'7 


BHI 


4* 



> Accrue the 


number 




CLR 


Rl 


2*: 


MOVB 


<R3>+, RO 




MOV 


RO, R4 




SUB 


#'0, R4 




BMI 


1* 




CMP 


R4, #7 




BGT 


1* 




ASH 


#3, Rl 




ADD 


R4, Rl 




BR 


2* 


i HIT 


DELIMITER 


1*: 


CMP 


R4, #9. 




BLOS 


4* 




DEC 


R3 




TSTB 


NEGFLG 



Get first character of number 
Is 1st character a digit? 
Br if not 

; Br if not 



; ACCRUE VALUE IN Rl 
i GET NEXT CHAR 

CONVERT ASCII CHAR TO VALUE 

BRANCH IF NOT DIGIT 

LEGAL OCTAL DIGIT? 

BRANCH IF NOT 

MULTIPLY PREVIOUS VALUE BY 8 

ADD IN NEW DIGIT 



Is this a decimal digit? 

Error — He specified a decimal value 

MAKE R3 POINT TO DELIMITER 

Should we negate the value? 



i 
« 
f 

i 

i 
i 

i 
< 

I 

C 
i 
€ 

f 
i 

( 
i 
t 
i 



TSKMN3 — TSKMON Subroutines MACRO V05. 05 Thursday 19-Jan-89 09:16 Page 29-1 
ACROCT — Accrue an octal value 



58 004560 001401 

59 004562 005401 

60 004564 012604 

61 004566 000207 
62 

63 
64 
65 004570 



9*: 



BEQ 9* 

NEG Rl 

MOV (. SP ) +, R4 

RETURN 



; Br if not 

; Negate the value 



Error — Invalid octal value 
4$: FABORT #EM*IOV j Invalid octal value 



< 

i 

t 

< 

f 

i 

« 
t 
€ 

< 






M 

i 

i 
f 

i 

< 

i 
i c 

' l 

l c 

f 

I 

1 I 

4 

« 
t 

< 



TSKMN3 — TSKMON Subroutines MACRO 
ACRSPD — Accrue a line speed value 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


004600 


010146 




13 








14 








15 








16 


004602 


004767 


177446 


17 








IS 








19 








20 


004606 


020127 


000206 


21 


004612 


001006 




22 


004614 


122327 


000056 


23 


004620 


001013 




24 


004622 


122327 


000065 


25 


004626 


OOIOIO 




26 








27 








28 








29 


004630 


012705 


000036 


30 


004634 


020165 


000000 


31 


004640 


001407 




32 


004642 


162705 


000002 


33 


004646 


002372 




34 








35 








36 








37 


004650 






38 








39 








41 


004660 


006205 




42 


004662 


012601 




43 


004664 


000207 
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. SBTTL ACRSPD — Accrue a line speed value 

Accrue a line speed value and return the corresponding speed code. 

Inputs: 
R3 = Pointer to start of speed parameter 

Outputs: 
R3 = Pointer to delimiter past end of speed value. 
R5 - Speed code. 

ACRSPD: MOV R1,-<SP> 

Accrue decimal speed value 

CALL ACRDEC ; Accrue decimal speed value 

If speed was 134. 5> skip over ". 5" 

i Decimal value for speed = 134? 
■> Br if not 
; Sk ip period 

i Sk ip 5 



Convert speed to speed code 

2*: MOV #2*15. >R5 i Get index to highest speed value 

3*: CMP Rl, SPDVAL<R5> ; Search for specified speed 

BEQ 4* i Br if found it 

SUB #2, R5 ; Try next table entry 

BGE 3* iLoop if more to check 

Invalid speed value 

8*: FABORT #EM*ISV 

Finished 

4*: ASR R5 

MOV < SP ) +, R 1 
RETURN 



CMP 


Rl,#134. 


BNE 


2* 


CMPB 


<R3>+, #'. 


BNE 


8* 


CMPB 


<R3>+,#'5 


BNE 


8* 



; Invalid speed value 



; Get 1 x speed code 



i 

t 

■%. 

\ 
i 

i 
\ 
I 
( 
I 
I 

€ 

4 

< 

I 

I 

l 

I 

i 

i 



TSKMN3 — TSKMON Subroutines 
OCTPRT — Print an octal value 



« 

i 
c 
f 
t 

A 
i 

i 

I 

' i 

4 

4 

I 

I 

I ( 

I 

f < 



3 






4 






5 






6 






7 


004666 


010046 


e 


004670 


010246 


9 


004672 


012700 000030 


10 


004676 


000261 


11 


004700 


006102 


12 


004702 


106100 


13 






14 


004710 


012700 000206 


15 


004714 


006302 


16 


004716 


001403 


17 


004720 


106100 


18 


004722 


103774 


19 


004724 


000765 


20 


004726 


012602 


21 


004730 


012600 


22 


004732 


000207 
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. SBTTL OCTPRT — Print an octal value 

OCTPRT IS A SUBROUTINE WHICH PRINTS OUT AN OCTAL VALUE. 
WHEN CALLED THE VALUE TO BE PRINTED MUST BE IN R2. 
ALL REGISTERS ARE PRESERVED. 



OCTPR 


T: MOV 


RO, -(SP) 




MOV 


R2, -(SP) 




MOV 


#30, RO 




SEC 




1*: 


ROL 


R2 




ROLB 


RO 




. TTYOUT 






MOV 


#206, RO 


2*: 


ASL 


R2 




BEQ 


3$ 




ROLB 


RO 




BCS 


2* 




BR 


1* 


3$: 


MOV 


(SP)+, R2 




MOV 


<SP)+, RO 




RETURN 





;SET STOPPER BIT 
iMOVE 1ST BIT TO RO 

PRINT THE ASCII CHAR 
SHIFTED 60 + REPEAT BIT 
SHIFT OFF 1ST BIT 
BRANCH IF FINISHED 
MOVE 3 IT TO RO 
DO LOOP 2 TIMES 
NOW GO GET 3RD BIT 



< 
I 

i 
i 

i 

i 
I 
t 
t 

i 
i 
« 

f 
4 

( 
i 
i 
t 
t 



> 

1 1 



i 

< 

1 ( 
i 

l< 

i 
i 

> < 

i 
t 



TSKMN3 - 


— TSKMO 


n| Subrou 


tines 


OCTFIX - 

1 
2 
3 


~ Print 


octal value wi 








4 








5 








6 








7 








8 








9 


004734 


010146 




10 


004736 


010346 




11 


004740 


010501 




12 


004742 


020327 


000006 


13 


004746 


002404 




14 


004750 


005000 




15 


004752 


073027 


000001 


16 


004756 


000411 




17 


004760 


012700 


000020 


IS 


004764 


160300 




19 


004766 


160300 




20 


004770 


160300 




21 


004772 


072100 




22 


004774 


005000 




23 


004776 


073027 


000003 


24 


005002 


062700 


000060 


25 


005006 






26 


005012 


077310 




27 


005014 


012603 




28 


005016 


012601 




29 


005020 


000207 
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i fixed # spaces 



Paqe 3* 



. SBTTL DCTFIX — Print octal value with fixed # spaces 

Print an octal value with a specified number of digits. 

Inputs: 
R3 = Number of digits to print (1 - 6). 
R5 = Value to be printed. 



i Get value to be printed 

;Are we printing a full 6 digits? 

; Br i f not 

;Shift 1st bit into RO 

; Enter conversion loop 

i Determine # bits to shift to left 

; justify the data value in Rl 



;Left justify data value in Rl 
> Shift an octal digit into RO 

/Convert to ASCII character 

; Print the digit 

i Loop if more digits to print 



OCTFIX: 


MOV 


Rl, -(SP) 




MOV 


R3, -<SP> 




MOV 


R5, Rl 




CMP 


R3, #6. 




BLT 


3* 




CLR 


RO 




ASHC 


#1, RO 




BR 


2* 


3*: 


MOV 


#16. , RO 




SUB 


R3, RO 




SUB 


R3, RO 




SUB 


R3, RO 




ASH 


RO, Rl 


1*: 


CLR 


RO 




ASHC 


#3, RO 


2*: 


ADD 

. TTYOUT 


#'0, RO 




SOB 


R3, 1* 




MOV 


<SP)+, R3 




MOV 


(SP)+, Rl 




RETURN 





I 
i 
f 

i 
i 



< 
< 
t 
i 
€ 
« 
< 
i 
i 
t 
t 
t 



TSKMN3 — TSKMON Subroutines MACRO 
ACRTXT — Accrue a character string 



1 

d 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 005022 

15 005024 
16 

17 
IS 

19 005026 

20 005032 

21 005036 

22 005040 

23 005042 
24 

25 
26 

27 005046 

28 005050 

29 005054 

30 005056 
005062 



31 

32 

33 

34 

35 

36 005064 

37 

38 

39 

40 005070 

41 005072 
42 

43 
44 

45 005074 

46 005100 

47 005102 

48 005104 

49 005106 

50 005112 

51 005114 
52 

53 
54 

55 005120 

56 005122 
57 



010146 
010546 



004767 
121327 
001003 
005203 
004767 



111305 
120527 
001431 
120527 
001426 



007770 
000075 



007754 



000047 
000042 



012701 OOOOOOG 



112300 
001414 



120027 
001007 
112300 
001422 
120027 
001402 
042700 



110021 
000762 



000136 



000136 



1 77740 
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SBTTL ACRTXT — Accrue a character strini 



Accrue a character string specified in the form 
C=3string or C=3 'string' or t=3"string" 

Inputs: 
R3 = Pointer to start of string 

Outputs: 
Accrued string is stored in asciz form in BLKO. 

RO = Number of characters in string (not counting null at end) 
R3 = Points past end of string 



ACRTXT: MOV 
MOV 



Ri, -<SP> 
R5, -<SP) 



Skip up to start of string 



CALL 

CMPB 

BNE 

INC 

CALL 



SKPSPC 

<R3>,#' = 

1* 

R3 

SKPSPC 



;Skip over any spaces 

;Was equal sign specified before string? 

; Br if not 

>Skip past equal sign 



See what the string delimiter is 



1*: 



MOVB 

CMPB 

BEQ 

CMPB 

BEQ 



(R3),R5 

R5, #47 

6* 

R5, #42 

6* 



Get string delimiter 
Single quote? 
Br if yes 
Double quote'7' 
Br if yes 



String is not quoted. 

Begin loop to get characters from the string. 

2*: MOV #BLK0»R1 > Point to buffer where we store result 

Get next char from input string 

4$: 



MOVB 
BEQ 



<R3>+, RO 
8* 



i Get next char from string 
> Br if reached end of string 



See if this is a control character sequence of the form A char 



CMPB RO, #' A 

BNE 3* 

MOVB <R3>+, RO 

BEQ 10* 

CMPB RO, #"* 

BEQ 3* 

BIC #"-C<37>, RO 



; Start of control char sequence? 

i Br if not 

iGet next char from string 

; Br if delimiter missing 

i Make " M " = ,,A " 



; Convert char to control character 
Store character into result buffer 



3* : 



MOVB 
BR 



RO, (Rl)+ 
4* 



i Store char into result buffer 
; Go get next char 



i 



l 

< 
< 

4 
4 
I 



i 

4 
i 

i 



TSKMN3 - 


— TSKMON Subrou 


tines 


ACRTXT - 


— Accrue a character st 


5B 








59 








60 


005124 


005303 




61 


005126 


105011 




62 


005130 


162701 


OOOOOOG 


63 


005134 


010100 




64 


005136 


000402 




65 








66 








67 








68 


005140 


004767 


000016 


69 








70 








71 








72 


005144 


012605 




73 


005146 


012601 




74 


005150 


**. f* *\ i" \ #•* •-•» 

uuu2u/ 




75 








76 








77 








78 


005152 
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Reached end of string 



8*; 



DEC 


R3 


CLRB 


<R1) 


SUB 


#BLKO, Rl 


MOV 


R1,R0 


BR 


9* 



Accrue a quoted string 
6$: CALL ACRSTR 



Finished 



9$: 



MOV 
MOV 
RETURN 



<SP)+, R5 
(SP)+, Rl 



Invalid string 
10*: FABORT #EM*IST 



iPoint back to null at end of input string 
; Store null at end of string 
j Determine length of string 
; Return in RO 



/Accrue quoted string 



i 
t 

i 
i 

* 

€ 

# 

t 
I 

I 
I 
i 

I 

4 
4 



c 

4 



TSKMN3 - 
ACRSTR - 

1 
i 

c 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Accrue a quoted character string 



005162 010146 
005164 010546 



005166 004767 007630 

005172 121327 000075 

005176 001003 

005200 005203 

005202 004767 007614 



005206 112305 

005210 120527 000047 

005214 001403 

005216 120527 000042 

005222 001031 



005224 012701 OOOOOOG 



005230 112300 

005232 001425 

005234 120005 

005236 001414 



005240 120027 000136 

005244 001007 

005246 1 1 2300 

005250 001416 

005252 120027 000136 

005256 001402 

005260 042700 177740 



005264 110021 
005266 000760 



. SBTTL ACRSTR — Accrue a quoted character string 

Accrue a character string specified in the form 
[ = 3 'string' or C = 3"string" 

Inputs: 
R3 = Pointer to start of string 

Outputs: 
Accrued string is stored in asciz form in BLKO. 

RO = Number of characters in string (not counting null at end) 
R3 = Points past end of string 



ACRSTR: MOV 
MOV 



Rl, -<SP> 
R5, -(SP) 



Skip up to start of string 



CALL 


SKPSPC 


CMPB 


<R3>, # 


BNE 


1* 


INC 


R3 


CALL 


SKPSPC 



iSkip over any spaces 

iWas equal sign specified before string? 

; Br if not 

.Skip past equal sign 



See what the string delimiter is 



1*: 



MOVB 


<R3>+, R5 


CMPB 


R5, #47 


BEQ 


2* 


CMPB 


R5, #42 


BNE 


10* 



j Get string delimiter 

; Single quote? 

* Br if yes 

i Doub le quote? 

i Br if invalid delimiter 

Begin loop to get characters from the string 

2*: MOV #BLKO, Rl > Point to buffer where we store result 

Get next char from input string 

4*: MOVB (R3)+, RO > Get next char from string 

; Br if missing delimiter 
; Is this the end delimiter? 
> Br if yes 

See if this is a control character sequence of the form •'"char 

; Start of control char sequence? 

; Br if not 

i Get next char from string 

i Br if delimiter missing 

iMake »•*-*» = " A " 

> Convert char to control character 
Store character into result buffer 



MOVB 


<R3)+, RO 


BEQ 


10* 


CMPB 


RO, R5 


BEQ 


9* 



CMPB 


RO, #'" 


BNE 


3* 


MOVB 


<R3>+, RO 


BEQ 


10* 


CMPB 


RO, #'~ 


BEQ 


3* 


BIC 


#"-C<37>, RO 



i 
f 

I 

I 

i 

i 



i 

€ 

f 
< 
i 
t 
€ 

C 

t 

( 



3*: 



MOVB 
BR 



RO, (Rl) + 
4* 



j Store char into result buffer 
i Go get next char 



OOOOOOG 
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ACRSTR — Accrue a quoted character string 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 005306 



005270 
005272 
005276 
005300 
005302 
005304 



105011 
162701 
010100 
012605 
012601 
000207 



i Finished 




9*: CLRB 


<R1 ) 


SUB 


#BLKO, Rl 


MOV 


R1,R0 


MOV 


<SP)+, R5 


MOV 


<SP>+»R1 


RETURN 




i Invalid string 



■Store null at end of string 
; Determine length of string 
; Return in RO 



i 

< 

i 

i 



i 

» ( 
I 

t 



i 



€ 

4 






i 
€ 
f 

t 
i 
€ 
< 
i 
t 
i 



i 



i 

i 



1 


TSKMN3 - 


— TSKMD 


N Subrou 


tines 


GTRD50 - 

1 

•-> 

c 

3 
4 


— Accrue a RAD50 value 




5 
6 
7 
8 
9 
10 


005316 


010046 






11 


005320 


010146 






12 










13 


005322 


121327 


UWWWTU 




14 


005326 


001002 






15 


005330 


005203 






16 


005332 


000773 






17 


005334 


012746 


022000 




18 


005340 


005001 






19 


005342 


111300 




f 


20 










21 


005344 


120027 


000052 




22 


005350 


001003 




f 


23 


005352 


012700 


000035 




24 
25 
26 


005356 


000434 






005360 


120027 


000060 




27 


005364 


103406 






28 


005366 


120027 


000071 




29 


005372 


101005 






30 


005374 


062700 


177756 




31 


005400 


000423 






32 










33 


005402 


005000 






34 


005404 


000422 






35 










36 


005406 


120027 


000141 




37 


005412 


103406 






38 


005414 


120027 


000172 




39 


005420 


101370 






40 


005422 


162700 


000040 




41 


005426 


000406 






42 


005430 


120027 


000101 




43 


005434 


103762 






44 


005436 


120027 


000132 




45 


005442 


101357 






46 


005444 


062700 


177700 




47 


005450 


005203 






48 










49 


005452 


070127 


000050 




50 


005456 


060001 






51 


005460 


006316 






52 


005462 


103327 






53 


005464 


005716 






54 


005466 


001403 






55 


005470 


010167 


0000000 




56 


005474 


000721 






57 


005476 


010167 


0000020 
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, SBTTL GTRD50 — Accrue a RAD50 value 

GTRD50 IS CALLED TO ACCRUE A RAD50 NAME. 

WHEN CALLED R3 MUST POINT TO THE BEGINNING OF THE NAME 

ANY LEADING SPACES ARE SKIPPED. 

ON RETURN THE ACCRUED VALUE IS STORED IN R50BUF AND 

R50BUF+2. ALL REGISTERS ARE PRESERVED EXCEPT R3 

WHICH POINTS TO THE END OF THE NAME ON RETURN. 



GTRD50: 



MOV 
MOV 



RO, -<SP> 
R 1 , - < SP ) 



t 

i 
I 

I 

4 

I 



SKIP LEADING BLANKS. 



>*: 



1$ 
8* 
7* 



CMPB 

BNE 

INC 

BR 

MOV 

CLR 

MOVB 



(R3), #■' 

1* 

R3 

2* 

#22000, - 

Rl 

<R3), RO 



IS THIS CHAR ABLANK? 
BRANCH IF NOT 
KEEP SKIPPING 



(SP) 



; TELL US WHEN TO STOP 
; FORM VALUE IN Rl 
; GET NEXT CHAR 
CHECK FOR WILDCARD CHARACTER ('*') 

i WILDCARD? 
i BR IF NOT 
; RETURN CODE FOR * 



CMPB 
BNE 
MOV 
BR 



RO, #'# 
10* 

#35, RO 
5* 



CHECK FOR DIGIT 



10*: CMPB 

BLO 

CMPB 

BHI 

ADD 

BR 
; HIT DELIMITER 

CLR 

BR 



3*: 



RO, #'0 

3* 

RO, #'9 

4* 

#<36-'0>, RO 

5* 

RO 
6* 



CHECK FOR ALPHA CHARACTER 



4*: 



CMPB RO, #141 

BLO 12* 

CMPB RO, #172 

BHI 3* 

SUB #40, RO 

BR 13* 

12*: CMPB RO, #'A 

BLO 3* 

CMPB RO, #'Z 

BHI 3* 

13*: ADD #<1-'A>, RO 

5*: INC R3 

; MULTIPLY PREVIOUS VALUE BY 50 

6*: MUL #50, Rl 

ADD RO, Rl 

ASL @SP 

BCC 7* 

TST @SP 

BEQ 9* 

MOV R1,R50BUF 

BR 8* 

9*: MOV Rl, <R50BUF+2> 



BR IF DELIMITER 

BR IF NOT DIGIT 

CONVERT DIGIT TO RAD50 VAL 



CONVERT TO SPACE 



IS THIS A LOWER CASE LETTER? 

BR IF NOT 

LOWER CASE Z 

BR IF MUST BE DELIMITER 

CONVERT LOWER CASE TO UPPER CASE 



BRANCH IF DELIMITER 

BRANCH IF DELIMITER 

CONVERT TO RAD 50 VAL 

POINT TO NEXT CHAR 

AND ADD NEW VALUE 

MULTIPLY PREVIOUS VALUE BY 50 

ADD NEW VALUE 

TEST FOR END OF 3 CHARS 

BRANCH IF NOT END OF 3 

FINISHED 6 CHARACTERS? 

BRANCH IF YES 

SAVE 1ST 3 CHARS 

SAVE 2ND 3 CHARS 



i 

i 
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58 005502 
59 

60 005504 

61 005506 

62 005512 

63 005514 

64 005516 

65 005520 

66 005522 



005726 

112300 
004767 
103374 
005303 
012601 
012600 
000207 



3KIF 



11*: 



007116 



TST 


(SP> + 


ANY CHARACTERS IN 


MOVB 


<R3)+,R0 


CALL 


CHKDLM 


BCC 


11* 


DEC 


R3 


MOV 


<SP>+, Rl 


MOV 


<SP>+, RO 


RETURN 





; CLEAN OFF STACK 
NAME AFTER SIXTH 

; GET NEXT CHAR 

;SEE IF IT IS A DELIMITER 

i LOOP IF NOT 

; POINT TO DELIMITER 



t 

f 

f 



I 

I 

i 

c 



I « 



I < 



I i 

I 
t 

l' 

i 

4 

I 

I < 
I 



TSKMN3 - 


— TSKMD 


M Subrou 


tines 


PRTPCT - 

1 

*-* 

3 


— Print 


percent! 


3ge val 








4 








5 








6 








7 








e 








9 








10 


005524 


010146 




11 


005526 


010446 




12 


005530 


010546 




4 I") 
J. J 








14 








15 








16 


005532 


012104 




17 


005534 


*•* A *^\ 4 /"V IT. 

ui£luu 




IS 


005536 


012700 


000144 


19 


005542 


004767 


000334 


20 








21 








22 








23 


005546 


004767 


000232 


24 








25 








26 








27 








28 


005552 


004767 


000376 


29 








30 








31 








32 


005556 


012700 


000045 


33 


005562 






34 








35 








36 








37 


005566 


012605 




38 


005570 


012604 




39 


005572 


012601 




40 


005574 


000207 
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, SBTTL PRTPCT — Print percentage value 



PRTPCT is called to convert a 32-bit value to a percentage and print the 
resulting value. 

Inputs: 
Rl = Address of 32-bit value to be converted (stored high-order word first) 
DIVSOR = 32-bit divisor to use for computing percentage. 



PRTPCT: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R4, -<SP) 
R5, -(SP) 



Get dividend and multiply by 100. 



i 
f 
i 
c 
« 
i 
c 



MOV 


(Rl)+, R4 


MOV 


(Rl )+» R5 


MOV 


#100. , RO 


CALL 


MUL32 



Divide to compute percentage 

CALL DIV32 

16-bit quotient is now in Hb. 
Print, the value. 

CALL PRTDEC 

Print percent sign 

MOV #'"/., RO 
. TTYOUT 

Finished 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R4 
(SP>+, Rl 



GET HIGH-ORDER VALUE 
GET LOW-ORDER VALUE 
SET MULTIPLIER 
MULTIPLY BY 100. 



DIVIDE TO COMPUTE PERCENTAGE 



i PRINT THE VALUE 



i GET PERCENT SIGN 
; PRINT IT 



i 
t 



► ( 





TSKMN3 - 


— TSKMO 


N Subrotr 


;ines 




PRTR50 - 


— Print 


a RAD50 


value 




1 










2 










3 










4 










5 










6 










7 










8 


005576 


010146 






9 


005600 


010246 






10 










11 










12 










13 


005602 


012702 


000003 




14 


005606 


005046 






15 


005610 


010001 






16 


005612 


005000 






i7 


0056i4 


071027 


000050 




IS 


005620 


116146 


OOOOOOG 




19 


005624 


010001 






20 


005626 


077207 






21 










22 










23 










24 


005630 


012600 




« 


25 


005632 


001403 




26 


005634 








27 


005640 


000773 




€ 


28 
29 
30 








i 


31 


005642 


012602 




32 


005644 


012601 






33 


005646 


000207 




1 










« 










< 










< 










< 










t 










i 










i 
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. SBTTL PRTR50 — Print a RAD50 value 

PRTR50 is called to print a Rad-50 value. 

Inputs: 
RO = Value to be printed. 



PRTR50: MOV 
MOV 



Rl, -<SP> 
R2, -(SP) 



Convert value to ascii string and stack the characters. 



1*: 



MOV 


#3. > R2 


CLR 


-<SP) 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#50, RO 


MOVB 


R50CHR(R1 ) 


MOV 


RO, Rl 


SOB 


R2, 1* 



SP) 



CONVERT 3 CHARS 

PUT NULL ON STACK TO SIGNAL END 

GET VALUE TO BE CONVERTED 

CLEAR HIGH-ORDER VALUE 

DIVIDE R0-R1 BY 50 

CONVERT REMAINDER TO ASCII CHARACTER & STACK 

GET QUOTIENT 

LOOP IF MORE CHARS TO CONVERT 



Finished conversion. Print the result. 



2$: MOV (SP)+, RO 
BEQ 3* 
. TTYOUT 
BR 2* 



;GET CHAR TO PRINT 

i BR IF HIT END 

; PRINT THE ASCII CHARACTER 

; KEEP GOING 



Finished 



3*: 



MOV 
MOV 
RETURN 



(SP)+, R2 
<SP)+, Rl 



i 

l 
( 



( 

I 
c 

i 

4 
I 
I 
I 
I 
I 

i 
i 

€ 
4 

I 
( 

t 
i 
i 
i 
i 
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SBTTL PRTFNM 



Print a file name 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


005650 


010146 




15 


005652 


010246 




16 


005654 


010446 




17 


005656 


010546 




18 


005660 


010005 




19 


005662 


012704 


000002 


20 








21 








22 








23 


005666 


005046 




24 


005670 


012702 


000003 


25 


005674 


012501 




26 


005676 


005000 




27 


005700 


071027 


000050 


28 


005704 


116146 


0000000 


29 


005710 


010001 




30 


005712 


077207 




31 








32 








33 








34 


005714 


012600 




35 


005716 


001405 




36 


005720 


120027 


000040 


37 


005724 


001773 




38 


005726 


110023 




39 


005730 


000771 




40 


005732 


077423 




41 








42 








43 








44 


005734 


012605 




45 


005736 


012604 




46 


005740 


012602 




47 


005742 


012601 




48 


005744 


000207 





Convert a 1 to 6 character file name that is stored in radSO form 
into an ascii string and store the string into a specified buffer. 
Trailing spaces are not printed. 

Inputs: 
RO = Pointer to 2 words containing file name in RADSO form. 
R3 = Pointer to buffer where ascii string is to be stored. 

Outputs: 
R3 = Pointer past end of name in buffer. 



PRTFNM: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP > 
R2, -«SP) 
R4, -<SP) 
R5, -<5P> 
RO, R5 
#2, R4 



; Get pointer to file name 
i Convert and print 2 words 



Convert RADSO name to ascii string and stack the characters 



4*: CLR -<SP) 

MOV #3, R2 

MOV <R5>+, R.t 

1$: CLR RO 

DIV #50, RO 

MOVB R50CHR<R1)>-<SP) 

MOV RO, Rl 

SOB R2, 1* 



Put null on stack to mark the end 

Convert 3 characters from this word 

Get RADSO value to be converted 

Clear high-order word for divide 

Divide R0-R1 by 50 

Stack next char of file name 

Get quotient 

Loop if more chars to convert 



Finished converting a word. Move characters to buffer. 



2*: MOV 
BEQ 
CMPB 
BEQ 
MOVB 
BR 

5*: SOB 

Fini shed 

3*: MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, RO 

5* 

RO, #40 

2* 

RO, (R3) + 

2* 

R4, 4* 



(SP)+, R5 
<SP)+, R4 
<SP)+, R2 
(SP)+, Rl 



; Get next character of name 

; Br if hit end of word 

i Is this character a space? 

; Don't print spaces 

; Move character to buffer 

; Loop if 2nd word to convert 



I ( 












TSKMN3 - 


— TSKMON Subrout 


;ine5 


( 


DIVIDE - 


— Divid 


e 32-bit 


qty by 


f 

t 


i 

3 










4 
5 
6 
7 








i 


8 


005746 


010246 






9 


005750 


005000 




1 < 


10 


005752 


012702 


000037 


11 


005756 


006305 




i 


12 


005760 


006104 




i 


13 


005762 


006100 




14 


005764 


020003 






15 


005766 


103402 




i ' 


16 


005770 


160300 




17 


005772 


005205 






18 


005774 


005302 




> < 


19 


005776 


100367 




20 


006000 


012602 






21 


006002 


000207 
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f 

» i 

I 

i« 

i 

,« 

i 

i< 
1 ( 

i 
1 < 

( 

i 

i 
i 



. SBTTL DIVIDE — Divide 32-bit qty by 16-bit 

SUBROUTINE DIVIDE IS CALLED TO DIVIDE THE 32-BIT QUANTITY 

IN R4 <HIGH ORDER) AND R5 (LOW ORDER) BY THE 16-BIT 

QUANTITY IN R3. ON RETURN THE QUOTIENT IS IN R4-R5 

AND THE REMAINDER IS IN RO. ALL OTHER REGISTERS ARE PRESERVED. 



; INITIALIZE REMAINDER 
GET SHIFT COUNT 
SHIFT BIT OUT OF LOW ORDER 
SHIFT THROUGH HIGH ORDER 
INTO RO 

GOT ENOUGH TO SUBTRACT YET? 
BR IF NOT 
SUBTRACT DIVISOR 
INCREASE QUOTIENT 
COUNT # BITS SHIFTED 
BR IF MORE TO DO 



DIVIDE: 


MOV 


R2, -(SP) 




CLR 


RO 




MOV 


#31. ,R2 


1*: 


ASL 


R5 




ROL 


R4 




ROL 


RO 




CMP 


RO, R3 




BLO 


2* 




SUB 


R3, RO 




INC 


R5 


2*: 


DEC 


R2 




BPL 


1* 




MOV 


<SP)+, R2 




RETURN 





t 

I 

I 
I 
f 

t 
I 

i 
< 

f 

i 
( 
i 
i 
i 
i 



( 

I 

I 

( 

I 

I < 

I 

I 

f 
I 

■« 

I 

I 
) « 

I 

. i 

f 

< 

i 
c 



TSKMN3 - 


— TSKMO 


N Subrou 


tines 


DIV32 - 

1 
3 


— Divid 


e 32-bit 


qty by 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


006004 


010246 




15 


006006 


010346 




16 


006010 


005002 




17 


006012 


005003 




18 


006014 


012700 


000040 


19 


006020 


073427 


000001 


20 


006024 


006103 




21 


006026 


006102 




22 


006030 


020267 


OOOOOOG 


23 


006034 


103412 




24 


006036 


101003 




25 


006040 


020367 


000002G 


26 


006044 


103406 




27 


006046 


166703 


000002G 


28 


006052 


005602 




29 


006054 


166702 


OOOOOOG 


30 


006060 


005205 




31 


006062 


077022 




32 


006064 


010267 


OOOOOOG 


33 


006070 


010367 


000002G 


34 


006074 


012603 




35 


006076 


012602 




36 


006100 


000207 
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SBTTL DIV32 



Divide 32-bit qty by 32-bit qty 



DIV32 divides one 32-bit value by another 32-bit value producing 
a 32-bit quotient and a 32-bit remainder. 

Inputs: 
R4-R5 = Dividend (R4 = high-order, R5 = low-order) 
DIVSQR = Divisor (High-order in 1st word) 

Outputs: 
R4-R5 = Quotient 
REMNDR = 32-bit remainder 



DIV3Z 



1*: 



3*: 



2*: 



MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


CLR 


R2 


CLR 


R3 


MOV 


#32. , RO 


ASHC 


#1, R4 


ROL 


R3 


ROL 


R2 


CMP 


R2, DIVSOR 


BLO 


2* 


BHI 


3* 


CMP 


R3, D1VS0R+2 


BLO 


2* 


SUB 


DIVSOR+2, R3 


SBC 


R2 


SUB 


DIVSOR, R2 


INC 


R5 


SOB 


RO, 1* 


MOV 


R2, REMNDR 


MOV 


R3, REMNDR+2 


MOV 


(SP)+, R3 


MOV 


(SP>+, R2 


RETURN 





; INITIALIZE REMAINDER (R2-R3) 

; GET SHIFT COUNT 

; SHIFT BIT OUT OF DIVIDEND 

; AND INTO REMAINDER 

; GOT ENOUGH TO SUBTRACT YET? 
BR IF NOT 
BR IF YES 

CHECK LOW-ORDER PART 
BR IF NOT ENOUGH YET 
SUBTRACT LOW-ORDER DIVISOR 
PROPOGATE BORROW 
SUBTRACT HIGH-ORDER DIVISOR 
INCREASE QUOTIENT 
DO FULL DIVIDE 
STORE HIGH-ORDER REMAINDER 
STORE LOW-ORDER REMAINDER 



f 
I 
I 

c 
t 

< 
i 
« 
i 
t 
i 



TSKMN3 — 

MUL32 — 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
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006102 
006104 
006106 
006110 
006112 
006114 
006116 
006120 
006122 
006124 
006126 
006130 
006132 
006134 
006140 
006142 
006144 
006146 
006150 
006152 



. SBTTL MUL32 — Multiply 32-bit qty by 16-bit qty 

MUL32 is called to multiply a 32-bit value by a 16-bit value producing 
a 32-bit product. 

Inputs: 
R4-R5 = 32-bit value to be multiplied (R4=h igh-order, R5=loui-order ) 
RO = 16-bit multiplier 

Outputs: 
R4-R5 = 32-bit product. 
RO is preserved. 



010046 
010246 
010346 
010402 
010503 
005004 
005005 
000241 
006000 
103003 
060305 
005504 
060204 
073227 
005700 
001366 
012603 
012602 
012600 
000207 



MUL32 



1*: 



000001 



>*: 



MOV 


RO, 


-<SP) 


MOV 


R2, 


-<SP) 


MOV 


R3, 


-(SP) 


MOV 


R4, 


R2 


MOV 


R5, 


R3 


CLR 


R4 




CLR 


R5 




CLC 






ROR 


RO 




BCC 


2* 




ADD 


R3, 


R5 


ADC 


R4 




ADD 


R2, 


R4 


ASHC 


#1, 


R2 


TST 


RO 




BNE 


1* 




MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


MOV 


<SP>+, RO 


RETURN 







i COPY VALUE TO BE MULTIPLIED 
; FORM PRODUCT IN R4-R5 



; SHOULD WE ADD IN THIS TIME 

; BR IF NOT 

; ADD LOW-ORDER PART 

i PROPOGATE CARRY 

i ADD HIGH-ORDER PART 

i SHIFT MULTIPLICAN VALUE 

i MORE TO MULTIPLY? 

; LOOP IF YES 



i 

t 
t 

i 

i 

i 



t 

t 



< 

< 
I 

( 

I 

i 

< 



f 

I 
( 
I 

f 

I 

( 
I 
I 

i 

4 
i 
1 i 
I 
( 

* 

I 



TSKMN3 • 


— TSKMO 


IM Subroir 


;ines 


PRTDEC - 
1 
3 


— Print 


a decimal value 








4 








5 








6 


006154 


010046 




7 


006156 


010246 




8 


006160 


010346 




9 


006162 


010446 




10 


006164 


010546 




11 


006166 


012702 


0000000 


12 


006172 


005004 




13 


006174 


071427 


000012 


14 


006200 


062705 


000060 


15 


006204 


110542 




16 


006206 


010405 




17 


006210 






18 








19 


006212 






20 


006216 


012605 




21 


006220 


012604 




22 


006222 


012603 




23 


006224 


012602 




24 


006226 


012600 




25 


006230 


000207 
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SBTTL PRTDEC 



Print a decimal value 



PRTDEC IS CALLED TO PRINT THE DECIMAL VALUE IN R5. 
ALL REGISTERS ARE PRESERVED. 



PRTDEC: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1*: CLR 
DIV 
ADD 
MOVE 
MOV 
BNE 

i VALUE IS 



RO, -<SP) 
R2, -<SP) 
R3, -<SP> 
R4, -<SP> 
R5, -<SP) 
#PBUFND, R2 
R4 

#10. , R4 
#'0, R5 
R5, -<R2> 
R4, R5 
1* 
CONVERTED, PRINT 



POINT TO END OF PRINT BUFFER 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE R4-R5 BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

STORE THE CHARACTER 

ANYTHING LEFT TO CONVERT 

BR IF YES 



JT. 



. PRINT 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



R2 

<SP)+, R5 
<SP)+, R4 
(SP>+, R3 
<SP)+, R2 
<SP)+, RO 



i 

t 
f 

c 
i 

i 



€ 
I 

( 
( 
I 
4 
< 
i 
« 
i 

4 
I 

< 

i 
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I 
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i 
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i 

< 

f 

I 

t 
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SBTTL PRTLN — Print a job number 



3 








4 








5 








6 








7 








8 








9 








10 


006232 


010346 




11 


006234 


010546 




12 


006236 


006205 




13 


006240 


012703 


000002 


14 


006244 


004767 


000006 


15 


006250 


012605 




16 


006252 


012603 




17 




r\ /•% y\ *-% y\ -T 

UUUiSU/ 





Print a job number. 

A job index number is divided by 2 to produce a job number and that 

job number is printed in a field with 2 positions. 

Inputs: 
R5 = Job index number of job whose number is to be printed. 



PRTLN: 



MOV 


R3, -(SP) 


MOV 


R5, -<SP) 


ASR 


R5 


MOV 


#2> R3 


CALL 


PRTFIX 


MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


RETURN 





; Convert job index # to job # 

i Print value in 2 character field 

; Print it 



i 



TSKMN3 - 


— TSKMON Subrou 


tines 


PRTFIX • 
1 
3 


— Print 


value with fixe 








4 








5 








6 








7 








S 








9 








10 








11 








12 


006256 


010046 




13 


006260 


010246 




14 


006262 


010346 




15 


006264 


010446 




16 


006266 


010546 




17 


006270 


012702 


0000000 


18 


006274 


005004 




19 


006276 


071427 


000012 


20 


006302 


062705 


000060 


21 


006306 


110542 




22 


006310 


005303 




23 


006312 


010405 




24 


006314 


001367 




25 


006316 


005703 




26 


006320 


003403 




27 


006322 


112742 


000040 


28 


006326 


077303 




29 


006330 






30 


006334 


012605 




31 


006336 


012604 




32 


006340 


012603 




33 


006342 


012602 




34 


006344 


012600 




35 


006346 


000207 
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. SBTTL PRTFIX — Print value with fixed field width 

PRTFIX is called to print a decimal value using a specified number 

of columns. 

Leading spaces are inserted if necessary to pad the value to the specified 

si ze. 

Inputs: 
R3 = Number of columns to print. 
R5 = Value to print. 



PRTFIX: 


MOV 


RO, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4i -(SP) 




MOV 


R5, -(SP) 




MOV 


#PBUFND, R 


1*: 


CLR 


R4 




DIV 


#10. , R4 




ADD 


#'0, R5 




MOVB 


R5, -(R2) 




DEC 


R3 




MOV 


R4, R5 




BNE 


1* 




TST 


R3 




BLE 


2* 


3*: 


MOVB 


#' i-(R2) 




SOB 


R3, 3* 


2*: 


. PRINT 


R2 




MOV 


<SP)+, R5 




MOV 


(SP)+,R4 




MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, RO 




RETURN 





POINT TO END OF CONVERSION BUFFER 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE R4-R5 BY 10. 

CONVERT REMAINDER TO ASCII DIGIT 

MOVE TO PRINT BUFFER 

COUNT DOWN # OF COLUMNS USED 

GET REMAINING QUOTIENT 

BR IF MORE TO CONVERT 

DO WE NEED TO PUT IN PADDING SPACES? 

BR IF NOT 

INSERT LEADING SPACES 

PRINT THE FINAL RESULT 



i 
i 
i 



r < 
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PRTDC2 — Print decimal value with 2 digits 



3 








4 








5 








6 








7 


006350 


020527 


000011 


8 


006354 


101006 




9 


006356 


010046 




10 


006360 






11 


006370 


012600 




12 


006372 


004767 


177556 




006376 


000207 




14 








15 








16 








17 








18 








19 








20 








21 








22 








23 








24 


006400 


020527 


000143 


25 


006404 


101004 




26 


006406 






27 


006416 


020527 


000011 


28 


006422 


101004 




29 


006424 






30 


006434 


004767 


177514 


31 


006440 


000207 




32 








33 








34 








35 








36 








37 








38 








39 








40 


006442 


010346 




41 


006444 


001405 




42 


006446 






43 


006456 


077305 




44 


006460 


012603 




45 


006462 


000207 





. SBTTL PRTDC2 — Print decimal value with 2 digits 

PRTDC2 PRINTS A DECIMAL VALUE CONTAINED IN R5 LIKE PRTDEC. 

HOWEVER, PRTDC2 ALWAYS PRINTS AT LEAST TWO DIGITS IN THE 
NUMBER. ALL REGISTERS ARE PRESERVED. 



PRTDC2: CMP R5, #9. 

BHI 1* 

MOV RO, -<SP> 

. TTYOUT #'0 

MOV <SP)+, RO 

CALL PRTDEC 
RETURN 



1*: 



; DOES VALUE USE 1 OR MORE DIGITS? 
; BR IF USES MORE THAN 1 DIGIT 

i PRINT LEADING ZERO 

iNOW PRINT VALUE 



.SBTTL PRTDC3 — Print decimal value with 3 digits 

PRTDC3 prints a decimal value and uses at lease 3 columns to 
display the value. Leading spaces are printed if necessary to 
fill out the three columns. 

Inputs: 
R5 = Value to be printed. 



PRTDC3: CMP 
BHI 



14: 



2*: 



R5, #99. 

1* 

. TTYOUT #40 
CMP R5, #9. 
BHI 2* 
. TTYOUT #40 
CALL PRTDEC 
RETURN 



>Will value print with 3 digits? 

i Br if yes 

;Print a blank if not 

iWill value print with 2 digits? 

; Br if yes 

>Print second blank if not 

; Print actual value 



.SBTTL PRTSPC — Print specified number of spaces 

Print the specified number of spaces. 

Inputs: 
R3 = Number of spaces to print 



PRTSPC: MOV R3, -<SP) 

BEG. 9* 
1*: . TTYOUT #40 

SOB R3, 1* 
9*: MOV <SP)+, R3 

RETURN 



; Print a space 

; Loop if more to print 



< 

c 
i 

i 

€ 
€ 
t 
€ 

4 
i 

i 
t 

i 

t 
i 
i 
t 



i 

I 

t 

c 
( 



> « 

} < 



I 
I t 



OOOOOOG 



TSKMN3 — TSKMON Subroutines MACRO V05. 05 
PRTTTP — Print terminal type name 



1 
2 
3 
4 
5 
6 
7 
8 
9 006464 

10 006466 

11 006470 

12 006474 

13 006502 

14 006504 

15 006510 

16 006514 

17 006520 
IS 006522 

19 006526 

20 006530 

21 006536 

22 006540 

23 006544 
24 

25 
26 

27 006550 

28 006552 
006554 
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. SBTTL PRTTTP — Print terminal type name 



PRTTTP prints the terminal type being used by a specified line. 
The terminal type name that is printed is 9 characters long. 



Inputs: 
Rl = Line index number. 



010246 
010446 
016104 
032761 
001002 
016104 
012702 
020462 
001407 
162702 
002372 

000404 

016202 



PRTTTP: MOV 
MOV 



OOOOOOG 
OOOOOOG 

OOOOOOG 

000022 

006556' 

000002 



00660^ 



1*: 
2*: 



4$: 

3*; 



MOV 

BIT 

BNE 

MOV 

MOV 

CMP 

BEO. 

SUB 

BGE 

. PRINT 

BR 

MOV 



R2, -<SP) 

R4, -<SP) 

LTRMTP<R1), R4 

#*KINIT>LSW<R1> 

1* 

ITRMTP(R1)>R4 

#NTRMTP, R2 

R4, TTFTBL(R2) 

3* 

#2j R2 

2* 

#TTNXXX 

9* 

TTNTBL<R2>, R2 



PRINT R2 



Get terminal type flags 

Has line initializion been done yet? 

Br if yes 

Get sysgen terminal type code 

Get # terminal types 

Is this the terminal type? 

Br if yes 

More to check? 

Br if yes 

Unknown terminal type 

; Get pointer to terminal name string 
; Print terminal name 



Finished 



29 
30 
31 
32 
33 

34 006556 

35 006560 

36 006562 

37 006564 

38 006566 

39 006570 

40 006572 

41 006574 

42 006576 

43 006600 
44 

45 
46 
47 

48 006602 

49 006604 

50 006606 

51 006610 

52 006612 

53 006614 

54 006616 

55 006620 

56 006622 

57 006624 



012604 
012602 
000207 



9$: 



MOV 
MOV 
RETURN 



<SP)+, R4 
(SP)+, R2 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000022 



006637 ' 
006650' 
006672 ' 
006703 ' 
006714' 
006725 '" 
006736 ' 
006747' 
006661 ' 
006661 ' 



> Terminal typ 


e flag table 


TTFTBL: 


. WORD 


VT52 




. WORD 


VT100 




. WORD 


HAZEL 




. WORD 


ADM3A 




. WORD 


LA36 




. WORD 


LA 120 




. WORD 


DIABLO 




. WORD 


QUME 




. WORD 


VT2007 




. WORD 


VT2008 


NTRMTP 


S= 


<Z. -TTFTBL>-2 


> Terminal typ 


e name pointe 


TTNTBL: 


. WORD 


TTNV52 




. WORD 


TTNV10 




. WORD 


TTNHZL 




- WORD 


TTNADM 




. WORD 


TTNL36 




WORD 


TTNL 1 2 




. WORD 


TTNDIA 




. WORD 


TTNQUM 




. WORD 


TTNV20 




. WORD 


TTNV20 



VT52 

VT100 

HAZELTINE 

ADM3A 

LA36 

LA 120 

DIABLO 

QUME 

VT200 — 7 bit control codes 

VT200 — 8 bit control codes 

Highest terminal type index 



VT52 

VT100 

HAZELTINE 

ADM3A 

LA36 

LA 1 20 

DIABLO 

QUME 

VT200 

VT200 



« 

i 

I 

i 
i 
< 

< 
i 
i 
I 

i 

♦ 

t 






\ t 



TSKMN3 - 


— TSKMOf 


vl Subrout 


ines MA 


DRO V 


05. 05 


Thursday 


19-Jan-89 


09: 16 


PRTTTP - 


— Print 


terminal 


type name 












58 
59 










i Terminal name strings 




60 










> 








61 












. NLIST 


BEX 




62 


006626 


165 


156 


153 


TTNXXX 


. ASCII 


/unknown 


/<200> 


63 


006637 


126 


124 


065 


TTNV52 


. ASCII 


/VT52 


/<200> 


64 


006650 


126 


124 


061 


TTNV10 


. ASCII 


/VT100 


/<200."J 


65 


006661 


126 


124 


062 


TTNV20 


, ASCII 


/VT200 


/<200> 


66 


006672 


110 


141 


172 


TTNHZL 


. ASCII 


/Hazel tne/<200> 


67 


006703 


101 


104 


115 


TTNADM 


. ASCII 


/ADM3A 


/<200l: 


68 


006714 


114 


101 


063 


TTNL36 


. ASCII 


/LA36 


/<200> 


69 


006725 


114 


101 


061 


TTNL12 


. ASCII 


/LA 120 


/<200> 


70 


006736 


104 


151 


141 


TTNDIA 


. ASCII 


/Diablo 


/ *vr■■USJ.-■ 


71 


006747 


121 


165 


155 


TTNGUM 


. ASC 1 1 


/Qume 


/<200> 


72 












. EVEN 






73 












. LIST 


BEX 
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TSKMN3 - 


— TSKMC 


IN Subrou 


bines 


EDTFIL - 
1 

tz. 

3 


— Edit 


file spec 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


006760 


010446 




15 








16 








17 








18 


006762 


012400 




19 


006764 


001404 




20 


006766 


004767 


000046 


21 


006772 


112723 


000072 


22 








23 








24 








25 


0067 76 


012400 




26 


007000 


001414 




27 


007002 


004767 


000032 


28 


007006 


012400 




29 


007010 


001402 




30 


007012 


004767 


000022 


31 








32 








33 








34 


007016 


012400 




35 


007020 


001404 




36 


007022 


1 1 2723 


000056 


37 


007026 


004767 


000006 


38 








39 








40 








41 


007032 


105013 




42 


007034 


012604 




43 


007036 


000207 
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. SBTTL EDTFIL — Edit file spec 

EDTFIL is called to convert a file specification stored in RAD50 
form into an asciz string of the form dev: name, ext 

Inputs: 
R3 = Pointer to start of area where result is to be stored. 
R4 = Pointer to 4-word block with file spec in RAD50 form. 

Outputs: 
Asciz file spec is in result buffer. 
R3 = Points to null at end of string. 

EDTFIL: MOV R4, -<SP) 

Edit device name 

GET DEVICE NAME 

BR IF NO DEVICE SPECIFIED 

EDIT INTO BUFFER 

TERMINATE DEV NAME WITH COLON 



MOV 


(R4>+, RO 


BEQ 


1* 


CALL 


EDTR50 


MOVB 


#': , (R3) 



Get file name 



1*: 



MOV 


<R4)+,R0 


BEQ 


3* 


CALL 


EDTR50 


MOV 


<R4)+,R0 


BEQ 


2* 


CALL 


EDTR50 



Put in extension 



2$: 



3*: 



MOV 


<R4)+, RO 


BEQ 


3* 


MOVB 


#'. , (R3) + 


CALL 


EDTR50 


Finished 




CLRB 


<R3> 


MOV 


<SP)+, R4 


RETURN 





GET 1ST 3 CHARS OF FILE NAMb 

BR IF NO FILE NAME 

EDIT IN 1ST 3 CHARS 

GET 2ND 3 CHARS 

BR IF ALL BLANK 

EDIT INTO BUFFER 



GET EXTENSION 

BR IF NO EXTENSION 

PUT PERIOD AT END OF FILE NAME 

EDIT IN EXTENSION 



;PUT IN NULL AT END OF STRING 



< 
i 
f 
I 

I 
< 
( 

i 
t 
€ 
t 

i 
i 

i 
i 
c 

i 

t 



i 
i 
f 



I. 

i 
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I 

t 
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i 
l 
t 
t 

i 
i 

< 
< 



TSKMN3 
EDTR50 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
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Convert RAD50 value to ascii 

. SBTTL EDTR50 — Convert RAD50 value to ascii 



007040 010146 
007042 010246 



007044 020027 000000G 

007050 001003 

007052 112723 000052 

007056 000420 



007060 005046 

007062 012702 

007066 010001 

007070 005000 

007072 071027 

007076 005701 

007100 001402 

007102 116146 

007106 010001 

007110 077211 



007112 112623 
007114 001376 
007116 005303 



007120 012602 
007122 012601 
007124 000207 



000003 



000050 



OOOOOOG 



EDTR50 is called to convert a RAD50 value to an ascii 
character string and store the string into a specified buffer. 

Inputs: 
RO = RAD50 value to convert 
R3 — Pointer to buffer where result is to be stored. 

Outputs: 
Ascii string is stored into result buffer. 
R3 = Pointer past end of last character stored into buffer. 



EDTR50: MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 



see if value is wildcard <"#" ) 



i Wi ldcard? 
i Br if not 
i Store wildcard character 



Convert value to ascii characters and stack the characters 



CMP 


RO, #WLDNAM 


BNE 


5* 


MOVB 


#'*, <R3) + 


BR 


9* 



5*: 



1*: 



4*: 



CLR 


-(SP) 


MOV 


#3, R2 


MOV 


RO, Rl 


CLR 


RO 


DIV 


#50, RO 


TST 


Rl 


BEG 


4* 


MOVB 


R50CHR<R1), -<SP> 


MOV 


RO, Rl 


SOB 


R2, 1* 



PUT NULL ON STACK TO SIGNAL END OF CHARS 

GET # OF CHARS TO CONVERT 

GET VALUE TO CONVERT 

CLEAR HIGH-ORDER FOR DIVIDE 

DIVIDE R0-R1 BY 50 

IS THE CHARACTER A SPACE? 

BR IF YES 

STACK THE CHARACTER 

GET QUOTIENT 

LOOP IF MORE TO CONVERT 



Move characters from the stack to the result buffer 



2*: 



9$: 



MOVB 


(SP)+, <R3)+ 


BNE 


2* 


DEC 


R3 


Finished 




MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





MOVE CHAR TO RESULT 
LOOP IF MORE TO MOVE 
POINT PAST LAST CHAR 



t 
t 
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. SBTTL PRTUNM 



Print user name or PPN 



PRTUNM is called to print the name of the user (or the PPN 

if no user name is present) for the user of a time-sharing line. 



Inputs: 
Rl = Line index number 



007126 
007130 



010446 
010546 



PRTUNM: MOV 
MOV 



R4, -<8P> 
R5, -<SP> 



007132 032761 
007140 001442 



OOOOOOG OOOOOOG 



If line is not logged on> there is nothing to print 

BIT #*KINIT, LSW<R1> iHas line been initialized? 
BEG. 10* i Br if not 



007142 
007146 



105767 
001017 



171001 



007150 
007 1 52 



010105 

O 12704 000014 
007156 070527 000006 
007162 062705 OOOOOOG 
007166 121527 000040 
007172 001405 
007174 

007202 077404 
007204 000420 



007206 016105 OOOOOOG 



007212 
007214 
007222 
007226 
007232 
007236 
007242 



001415 

004767 176726 

112700 000054 

016105 OOOOOOG 

004767 176706 



007246 012605 
007250 012604 
007252 000207 



Did user request PPN display? 



TSTB 
BNE 



SJSPPN 
15* 



See if user name is known 



16*: 



MOV 


R1,R5 


MOV 


#12. , R4 


MUL 


#6, R5 


ADD 


#LUNAME, R5 


CMPB 


<R5)>#' 


BEG 


15* 


. TTYOUT 


(R5> + 


SOB 


R4, 16* 


BR 


10* 



; SHOW JOBS/PPN? 
; BRANCH IF SO 



GET JOB # 

EACH JOB HAS A 12. CHAR USER NAME 

GET POINTER TO USER NAME FOR THIS JOB 

IS USER NAME BLANK? 

BR IF YES — PRINT PPN INSTEAD 

PRINT USER NAME 



Don't know user name* print PPN 



15*: 


MOV 


LPROJ(Rl), R5 




BEG 


10* 




. PRINT 


#PPNMSG 


9*: 


CALL 


PRTDEC 




MOVB 


#', , RO 




. TTYOUT 






MOV 


LPR0G<R1>, R5 




CALL 


PRTDEC 


; Fini 


shed 




10*: 


MOV 


<SP)+, R5 




MOV 


(SP)+, R4 




RETURN 





j GET PROJECT # 

; BR IF NOT LOGGED ON 

i PRINT PROJECT NUMBER 



; PRINT PROGRAMMER NUMBER 



i 
t 

i 
t 

i 

i 
t 

i 
* 



TSKMN3 - 


— TSKMON Subrou 


tines 


PRTTIM - 

1 
2 
3 


— Print 


job sta 


tistics 








4 








5 








6 








7 


007254 


010046 




8 


007256 


010346 




9 


007260 


010446 




10 


007262 


010546 




11 








12 








13 








14 


007264 






15 


007272 


016705 


OOOOOOG 


16 


007276 


166105 


OOOOOOG 


17 


007302 


00 5205 




IS 


007304 


005004 




19 


007306 


012703 


000074 


20 


007312 


004767 


176430 


21 


007316 


004767 


177026 


22 


007322 


010005 




23 


007324 






24 


007334 


004767 


177010 


25 


007340 






26 








27 








28 








29 


007346 






30 


007354 


016104 


OOOOOOG 


31 


007360 


016105 


OOOOOOG 


32 


007364 


004767 


000020 


33 


007370 






34 


007376 


012605 




35 


007400 


012604 




36 


007402 


012603 




37 


007404 


012600 




38 


007406 


000207 
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SBTTL PRTTIM 



Print job statistics 



PRTTIM IS CALLED TO PRINT THE JOB ACCOUNTING STATISTICS FOR 
THE JOB WHOSE LINE INDEX NUMBER IS IN Rl. 
ALL REGISTERS ARE PRESERVED. 



PRTTIM: MOV 


RO, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


; PRINT CONNECT TIME 


> 

, PRINT 


#CTMSG 


MOV 


MINTIM, R5 


SUB 


LCONTM(Rl), R5 


INC 


R5 


1*: CLR 


R4 


MOV 


#60. , R3 


CALL 


DIVIDE 


CALL 


PRTDC2 


MOV 


RO, R5 


. TTYOUT 


#': 


CALL 


PRTDC2 


. PRINT 


#COLOO 



PRINT CPU TIME 



. PRINT 


#CPUMSG 


MOV 


LCPUHKR1). R4 


MOV 


LCPUL0(R1),R5 


CALL 


PRTTMV 


. PRINT 


#CRLF 


MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, RO 


RETURN 





PRINT CONNECT TIME HEADER 

GET CURRENT MINUTE TIMER VALUE 

CALCULATE CONNECT TIME FOR LINE 

CHARGE A MINIMUM OF 1 MINUTE 

CLEAR HIGH-ORDER FOR DIVIDE 

SET TO DIVIDE BY 60. 

DIVIDE BY 60 

PRINT # HOURS CONNECTED 

GET # MINUTES CONNECTED 

PRINT COLON AFTER HOURS 

PRINT # MINUTES CONNECTED 

PRINT ':00' SECONDS 



5 PRINT CPU HEADER MESSAGE 

; GET HIGH ORDER CPU TIME (CLOCK TICKS) 

j GET LOW ORDER CPU TIME (CLOCK TICKS) 

; PRINT TIME VALUE 

; END PRINT LINE 
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i 
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— TSKMON Subrot 


tines 


PRTTMV - 


— Print 


a time 


value 


c 


1 
-> 

3 








i 


4 
5 
6 








< 


7 

8 

9 

10 








< 


11 
12 








i 


13 








14 


007410 


010346 






15 


007412 


010446 




* 


16 


007414 


010546 




i 


17 
IS 
19 








i 


20 


007416 


066705 


000000G 




21 


007422 


005504 






22 


007424 


016703 


OOOOOOG 


% 


23 
24 

25 


007430 


004767 


176312 


i 


26 
27 










28 


007434 


012703 


000074 


i 


29 


007440 


004767 


176302 




30 


007444 


010046 






31 








i 


32 
33 








+ 


34 


007446 


004767 


176274 


i 


35 
36 
37 








i 


38 


007452 


004767 


176672 




39 


007456 


010005 






40 


007460 






t 


41 
42 


007470 
007474 


004767 


176654 




43 


007504 


012605 




i 


44 
45 


007506 


004767 


176636 


( 


46 
47 










48 


007512 


011605 






49 


007514 


016604 


000002 


t 


50 

51 
52 








i 


53 


007520 


016703 


0000000 




54 


007524 


004767 


176216 


4 


55 
56 
57 








( 
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. SBTTL PRTTMV — Print a time value 

PRTTMV is called to display a time value in the format HH: MM: SS 

Inputs: 
R4 = High-order time value <clock tick units) 
R5 = Lou-order time value 

Outputs: 
Time value is printed without a trailing CR/LF. 
CPUAL = Low-order CPU time in 0. 1 second units. 
CPUAH = Hiqh-order CPU time in 0. 1 second units. 



PRTTMV: MOV 
MOV 
MOV 



R3, -<SP) 
R4, -<SP) 
R5, -<SP> 



Convert time to seconds and fractions thereof 



ADD 


TK5VAL, R5 


ADC 


R4 


MOV 


TK1SEC, R3 


CALL 


DIVIDE 



.Round to nearest second 

; Propogate round carry 

.Get # clock ticks per second 

; Convert to seconds and fractions 



We now have # seconds in R4-R5. 
Convert to minutes and seconds. 



MOV 


#60. > R3 


CALL 


DIVIDE 


MOV 


RO, -<SP> 



60 seconds p&r minute 

SPLIT INTO MINUTES AND SECONDS 

SAVE # SECONDS 



Split time into hours and minutes 

CALL DIVIDE ; SPLIT INTO # HOURS AND MINUTES 

Print the complete time value 



CALL PRTDC2 
MOV RO, R5 
. TTYOUT # ' : 
CALL PRTDC2 
. TTYOUT # ' : 
MOV (SP)+, R5 
CALL PRTDC2 



i PRINT # HOURS 
i GET # MINUTES 

i PRINT # MINUTES 

; GET # SECONDS 
; PRINT # SECONDS 



Now convert original clock-tick time into tenths of seconds 



MOV 
MOV 



(SP), R5 
2(SP),R4 



i Recover original low-order value 
.; Recover original high-order value 



Convert time value to seconds and fractions thereof 



MOV 
CALL 



TK1SEC- R3 
DIVIDE 



i Get # clock ticks per second 

i Convert to seconds and fractions thereof 



Now R4-R5 have # of seconds of time. 

RO has remainder in units of 1/50, 1/60, or 1/64 second units. 
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value 


t 


58 

CO 
\J7 










60 


007530 


010046 




€ 


61 


007532 


012700 


000012 


62 


007536 


004767 


176340 




63 


007542 


010467 


000000G 


1 


64 


007546 


010567 


000000G 


65 










66 








t 


67 








68 


007552 


012605 






69 


007554 


005004 




C 


70 


007556 


071467 


000000G 


71 


007562 


060467 


000000G 




72 


007566 


005567 


OOOOOOG 




73 










74 










75 










76 


007572 


012605 






77 


007574 


012604 






78 


007576 


012603 






79 


007600 


000207 
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Convert whole seconds value to 1/10 second units. 



mov 


RO, -<SP> 


MOV 


#10. , RO 


CALL 


MUL32 


MOV 


R4, CPUAH 


MOV 


R5, CPUAL 



; Save fractional remainder 
^Multiply whole seconds value by 10. 
; Get approximate # 1/10 
; Save high-order part 
j Save low-order part 



Now convert fractional reminder into 1/10 second units 



i Get fractional remainder 

iClear high-order for divide 

» Convert remainder to 1/10 sec units 

iAdd to low-order part 

jPropogate carry to high— order part 



MOV 


(SP)+, R5 


CLR 


R4 




TK1VAL, R4 


ADD 


R4> CPUAL 


ADC 


CPUAH 


Finished 




MOV 


<SP)+, RS 


MOV 


(SP>+, R4 


MOV 


<SP)+, R3 


RETURN 
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PRTTMD — Print a time value with days 



3 
4 
5 
6 
7 
8 

9 007602 010346 

10 007604 010446 

11 007606 010546 

12 007610 062705 

13 007614 005504 

14 007616 012703 

15 007622 004767 

16 007626 012703 

17 007632 004767 
007636 010046 
007640 004767 
007644 020527 
007650 103415 
007652 071427 
007656 010546 
007660 010405 

25 007662 004767 

26 007666 010046 

27 007670 
007700 012600 
007702 012605 
007704 004767 176440 
007710 010005 

32 007712 

33 007722 

34 007726 

35 007736 

36 007740 004767 176404 
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i 

4 
C 



is 

19 
20 

21 

22 
23 
24 



28 
29 
30 
31 



000005 



176120 
000074 
176110 

176102 
000030 

000030 



176266 



004767 176422 



012605 
004767 



37 
38 
39 

40 007744 

41 007746 

42 007750 

43 007752 



012605 
012604 
012603 
000207 



. SBTTL 


PRTTMD — Pr-in 


; PRTTMD is ca 


lied to display 


i 

> Inputs: 




i R4 = High-order time value 


; R5 = Lou-or 


der time value 


PRTTMD: MOV 


R3, -<SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


ADD 


#5. , R5 


ADC 


R4 


MOV 


#10. > R3 


CALL 


DIVIDE 


MOV 


#60. , R3 


CALL 


DIVIDE 


MOV 


RO, -(SP) 


CALL 


DIVIDE 


CMP 


R5, #24. 


BLO 


1* 


DIV 


#24. , R4 


MOV 


R5, -(SP) 


MOV 


R4, R5 


CALL 


PRTDEC 


MOV 


RO, -(SP) 


. TTYOUT 


#40 


MOV 


(SP)+, RO 


MOV 


(SP>+, R5 


1*: CALL 


PRTDC2 


MOV 


RO, R5 


. TTYOUT 


#': 


CALL 


PRTDC2 


. TTYOUT 


#': 


MOV 


(SP)+, R5 


CALL 


PRTDC2 


> 

i Finished 




> 

MOV 


(SP)+, R5 


MOV 


(SP>+, R4 


MOV 


(SP)+, R3 


RETURN 





t a time value with days 
a time value in the format DD HH: MM: SS 

(O. 1 second units) 



; ROUND TO NEAREST SECOND 

;GET DIVISOR 

; SPLIT INTO SECONDS AND TENTHS 

SPLIT INTO MINUTES AND SECONDS 

SAVE # SECONDS 

SPLIT INTO # HOURS AND MINUTES 

MORE THAN 1 DAY? 

BR IF NOT 

GET DAYS AND HOURS WITHIN A DAY 

SAVE HOURS (REMAINDER) 

GET NUMBER OF DAYS 

PRINT NUMBER OF DAYS 

SAVE MINUTES 

PRINT A SPACE FOLLOWING THE DAY VALUE 

RECOVER MINUTES 

GET NUMBER OF HOURS WITHIN THE DAY 

PRINT # HOURS 

GET # MINUTES 

t PRINT # MINUTES 

i GET # SECONDS 
; PRINT # SECONDS 
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SBTTL PRTDAT 



Print the current date 



3 








4 








5 








6 


007754 


010046 




7 


007756 


010246 




8 


007760 


010546 




9 


007762 






10 


007770 


010046 




11 


007772 


006300 




12 


007774 


012702 


000005 


13 


010000 


WW w»WWv/ 




14 


010002 


006100 




15 


010004 


006105 




16 


010006 


077203 




17 


UiUUlU 


005305 




18 


010012 


010546 




19 








20 


010014 


012702 


000005 


21 


010020 


005005 




22 


010022 


006100 




23 


010024 


006105 




24 


010026 


077203 




25 


010030 


004767 


176120 


26 


010034 






27 








28 


010044 


011605 




29 


010046 


006305 




30 


010050 


062605 




31 


010052 


062705 


0000000 


32 


010056 






33 


010064 






34 


010072 






35 


010100 






36 








37 


010110 


012605 




38 


010112 


042705 


177740 


39 


010116 


062705 


000110 


40 


010122 


004767 


176222 


41 


010126 


012605 




42 


010130 


012602 




43 


010132 


012600 




44 


010134 


000207 





PRTDAT IS CALLED TO PRINT THE. CURRENT DATE. 
ALL REGISTERS ARE PRESERVED. 



PRTDAT: 


MOV 


RO, -<SP> 




MOV 


R2, -<SP> 




MOV 


R5, -<SP> 




. DATE 






MOV 


RO, -<SP) 




ASL 


RO 




MOV 


#5, R2 




CLR 


R5 


1*: 


ROL 


RO 




ROL 


R5 




SOB 


R2, 1* 




DEC 


R5 




MOV 


R5, -<SP) 


; PRINT DAY NUMBER 




MOV 


#5, R2 




CLR 


R5 


2*: 


ROL 


RO 




ROL 


R5 




SOB 


R2, 2$ 




CALL 


PRTDEC 




. TTYOUT 


#'- 


i PRINT MONTH ! 


MAME 




MOV 


<SP),R5 




ASL 


R5 




ADD 


<SP)+, R5 




ADD 


#MONTAB> R5 




. TTYOUT 


(R5) + 




. TTYOUT 


<R5) + 




. TTYOUT 


(R5) 




. TTYOUT 


#'- 


; PRINT YEAR 






MOV 


(SP)+, R5 




BIC 


#<">C37># R5 




ADD 


#72. , R5 




w r*lLaL~ 


PRTDC2 




MOV 


(SP)+,R5 




MOV 


<SP)+, R2 




MOV 


<SP)+. RO 




RETURN 





i GET CURRENT DATE 
; SAVE DATE 
i LEFT JUSTIFY VALUE 
; SHIFT OFF 5 BITS 
i INTO R5 

> SHIFT MONTH VALUE INTO R5 

; LOOP IF MORE BITS TO SHIFT 

i GET MONTH VALUE IN RANGE 0-11 

> SAVE MONTH VALUE 

i GET 5 BITS OF DAY VALUE 
; SHIFT BITS INTO R5 



i PRINT DAY-OF-MONTH 
> PUT IN SEPARATOR 

; GET MONTH INDEX 

; #2 

; #3 

; POINT INTO ASCII MONTH TABLE 

j PRINT NAME OF MONTH 



i PUT IN SEPARATOR 

;GET BACK ORIGINAL DATE VALUE 
; CLEAR ALL BUT YEAR FIELD 
i YEAR # IS RELATIVE TO 1972 
i PRINT YEAR VALUE 
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4 








5 








6 


010136 


010046 




7 


010140 


010346 




8 


010142 


010446 




9 


010144 


010546 




10 


010146 






11 


010166 


016704 


OOOOOOG 


12 


010172 


016705 


0000000 


13 


010176 


016703 


OOOOOOG 


14 


010202 


004767 


175540 


15 


1 0206 


012703 


000074 


16 


010212 


004767 


175530 


1 / 


010216 


1 0046 




18 


1 0220 


004767 


175522 


19 


1 0224 


004767 


176120 


20 


010230 


010005 




21 


010232 






22 


010242 


004767 


176102 


23 


010246 






24 


010256 


012605 




25 


1 0260 


004767 


176064 


26 


010264 


012605 




27 


010266 


012604 




28 


010270 


012603 




29 


010272 


012600 




30 


010274 


000207 




31 








32 








33 








34 








35 








36 








37 








38 


010276 


010046 




39 


010300 






40 


010306 


005700 




41 


010310 


001412 




42 


010312 


004767 


177436 


43 


010316 






44 


010324 


004767 


177606 


45 


010330 






46 


010336 


012600 




47 


010340 


000207 
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. SBTTL PRTTOD — Print the time of day 

PRTTOD IS CALLED TO PRINT THE TIME OF DAY. 
ALL REGISTERS ARE PRESERVED. 



PRTTOD: MOV 


RO, -<SP) 


MOV 


R3. -<SP) 


MOV 


R4, -(SP) 


MOV 


R5, -<SP) 


. GTIM 


#XAREA, #CPUAH ; 


MOV 


CPUAH, R4 i 


MOV 


CPUAL, R5 i 


MOV 


TK1SECR3 : 


CALL 


DIVIDE ; 


MOV 


#60. , R3 > 


CALL 


DIVIDE 


MOV 




CALL 


DIVIDE i 


CALL 


PRTDC2 ; 


MOV 


RO, R5 ; 


. TTYOUT 


#': ; 


CALL 


PRTDC2 : 


. TTYOUT 


#': i 


MOV 


<SP)+,R5 ; 


CALL 


PRTDC2 ; 


MOV 


(SP)+i R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, RO 


RETURN 





GET # CLOCK TICKS SINCE 00:00 

GET HIGH-ORDER VALUE 

GET LOW-ORDER VALUE 

Get # clock ticks per second 

Get # seconds past midnight 

DIVIDE BY 60 TO SPLIT INTO SEC & MIN 

SAVE # SECONDS INTO MINUTE 
GET # MINUTES & # HOURS 
PRINT HOUR VALUE 
GET # MINUTE VALUE 
PUT IN COLON SEPARATOR 
PRINT # MINUTES 
ANOTHER COLON 
GET # SECONDS 
PRINT # SECONDS 



. SBTTL DATIM — Print date and time 



DATTIM IS CALLED TO PRINT THE CURRENT DATE AND TIME. 

IF NO DATE HAS BEEN ENTERED DATTIM RETURNS WITHOUT DOING 

ANYTHING. ALL REGISTERS ARE PRESERVED. 



GET CURRENT DATE 

WAS DATE ENTERED BY OPERATOR? 

BR IF NOT 

PRINT CURRENT DATE 

PRINT 2 SPACES 

PRINT TIME OF DAY 

PRINT CR-LF 



DATTIM: 


MOV 
. DATE 


RO, -<SP) 




TST 


RO i 




BEG. 


1* i 




CALL 


PRTDAT ; 




. PRINT 


#SPACE2 ; 




CALL 


PRTTOD i 




. PRINT 


#CRLF i 


1$: 


MOV 
RETURN 


(SP)+, RO 
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t 

i 



SBTTL 



SEARCH 



Search keyword list 



4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








IS 








19 


010342 


010046 




20 


010344 


010146 




21 


010346 


010246 




22 


010350 


010546 




23 








24 








25 








26 


010352 


1 1 2300 




27 


010354 


120027 


000040 


28 


010360 


001774 




29 


010362 


120027 


000011 


30 


010366 


001771 




31 


010370 


120027 


000014 


32 


010374 


001766 




33 


010376 


005303 




34 








35 








36 








37 








38 


010400 


012705 


OOOOOOG 


39 


010404 


1 1 2300 




40 


010406 


120027 


000141 


41 


010412 


103405 




42 


010414 


120027 


000172 


43 


010420 


101035 




44 


010422 


162700 


000040 


45 


010426 


120027 


000132 


46 


010432 


101020 




47 


010434 


120027 


000101 


48 


010440 


103020 




49 


010442 


120027 


000071 


50 








51 








52 








53 








54 


010446 


101404 




55 


010450 


120027 


000072 


56 


010454 


001412 




57 


010456 


000416 





SEARCH is called to compare a command or option 
keyword with a table of names. 

Inputs: 
R3 = Pointer to start of the command keyword. 
R4 = Points to the start of the command name table which is 
built by use of the TBLDEF, CMDDEF, and TBLEND macros. 

Outputs: 
R3 = Points to 1st non-blank character after keyword. 
C-flag reset --"> Command successfully identified. 

R4 « Pointer to 2nd word of command table entry. 
C-flag set ==> Command not successfully identified. 

R4=0 ==> Command not recognized. 

R4=non-zero ==0- Command is ambigious. 



SEARCH: MOV 
MOV 
MOV 
MOV 



RO* -<SP) 
R 1 * - < SP ) 
R2* -<SP) 
R5* -(SP) 



Skip leading spaces* tabs* and form-feeds. 

14*: MOVB <R3)+, RO i Get next character 

; Is this a space? 
iSkip leading spaces 
;Skip leading tabs 

j Skip leading form-feeds 

* Point to first non-blank character 

Move keyword to a holding buffer and convert lower-case letters 
to upper case 

; Point to keyword holding buffer 
15*: MOVB (R3)+»R0 i Get next character from command string 

* Is this a lower-case letter? 
■> Br if not 



MOVB 


<R3>+, RO 


CMPB 


RO.- # ' 


BEQ 


14* 


CMPB 


RO, #TAB 


BEQ 


14* 


CMPB 


RO* #FF 


BEQ 


14* 


DEC 


R3 



16*: 



MOV 


#KEYBUF, R5 


MOVB 


<R3>+> RO 


CMPB 


RO* #141 


BLQ 


16* 


CMPB 


RO* #172 


BHI 


17* 


SUB 


#40* RO 


CMPB 


RO, #'Z 


BHI 


23* 


CMPB 


RO* #'A 


BHIS 


18* 


CMPB 


RO, #'9 



; Convert lower-case to upper-case 
i Is this character a letter? 
* Br if not 



; Br if it is a letter 
i Is character a digit? 
NEXT 5 LINES REPLACE 2 FOLLOWING TO REJECT COMMAND . SY: FILNAM 
AND LOOK FOR COMMAND FILE INSTEAD OF DOING SYSTAT COMMAND 
** BHI 17* * Br if delimiter 

#* CMPB RO, #'0 

BLOS 24* i BRANCH IF MAYBE * ## 

CMPB R0*#': * CHAR RANGE : TO @, IS IT : ? ; ** 

BEQ 18* * INCLUDE IF SO ; *# 

BR 17* * ELSE DELIMITER * •** 
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58 


010460 


120027 


000060 




010464 


103006 




60 


010466 


120027 


000044 


61 


010472 


001403 




62 


010474 


120027 


000137 


63 


010500 


001005 




64 


010502 


020527 


177777G 


65 


010506 


103336 




66 


010510 


110025 




67 


010512 


000734 




68 








69 








70 








71 


010514 


105015 




72 








73 








74 








75 


010516 


005303 




76 


010520 


122327 


000040 


77 


010524 


001775 




78 


010526 


005303 




79 


010530 


010346 




80 


010532 


105767 


OOOOOOG 


81 


010536 


001433 




82 








83 








84 








85 








86 


010540 


012402 




87 


010542 


012405 




88 


010544 


001433 




89 


010546 


012703 


OOOOOOG 


90 


010552 


005001 




91 








92 








93 








94 








95 


010554 


1 1 2300 




96 


010556 


001414 




97 


010560 


105715 




98 


010562 


001410 




99 


010564 


121527 


000052 


100 


010570 


001003 




101 


010572 


005201 




102 


010574 


005205 




103 


010576 


000770 




104 


010600 


122500 




105 


010602 


001764 




106 








107 








108 








109 








110 


010604 


060204 




111 


010606 


000755 




112 








113 








114 
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18*: 
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CMPB 


RO, #'0 


RUT C 


IS* 


CMPB 


RO, #'* 


BEG. 


IS* 


CMPB 


R0,#' 


BNE 


17* 


CMP 


R5, #KEYEND-1 


BHIS 


15* 


MQVB 


RO, <R5> + 


BR 


15* 
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;See if in range 0-9 ; «•# 

• Vi f\ •! /J A i n ■» +• 
J JlJ I J. i »J j. y a v 

; Allow "*" in command names 

;Also allow underscore 

; Br if character is a delimiter 

; Have we reached end of keyword buffer? 

> Br if yes 

; Move character to buffer 



i Reached end of keyword 
17*: CLRB <R5) 



■> Put null at end of keyword name 



DEC 


R3 


CMPB 


(R3)+, #' 


BEG 


22* 


DEC 


R3 


MOV 


R3, -<SP) 


TSTB 


KEYBUF 


BEG 


21* 



5*: 



MOV 


<R4)+, R2 


MOV 


(R4)+, R5 


BEG 


20* 


MOV 


#KEYBUF, R3 


CLR 


Rl 



Skip up to start of next field after keyword 

;Point to delimiter 

;Skip spaces following keyword 

; Point to 1st non-blank character 

> Save delimiter pointer on stack for later 

;Did we have a null keyword? 

■> Br if yes 

The keyword has been converted to uppei — case and is stored in KEYBUF. 
We are now ready to begin comparing the keyword. 

; Get # of bytes per table entry 
iPoint to asciz name string 
; Br if end of table hit 
i Point to our keyword 
; Say no star seen yet 

Begin to compare command string pointed to by R3 with 
keyword in table entry pointed to by R5 

Get a char from the keyword 

Br if hit end of keyword 

Hit end of name in table? 

Br if yes — no match 

Is next char a star? 

Br if not 

Remember star seen 

Point beyond star 

Continue comparison 

Do names match 

Yes — keep checking 

Names do not match 

Compare keyword with next entry in table 



6*: 


MOVB 


<R3>+, RO 




BEG 


1* 


2*: 


TSTB 


(R5) 




BEG 


4* 




CMPB 


<R5>, #'* 




BNE 


19* 




INC 


Rl 




INC 


R5 




BR 


2* 


19*: 


CMPB 


<R5)+,R0 




BEG 


6* 



4*: 



ADD 
BR 



R2,- R4 
5* 



; Point to next table entry 
; Go check it 



i 

i 
I 

€ 
i 



Reached end of keyword. All chars match so far. 

If we are also at end of name in table or if we have seen a star, 



( 

f 

i 
i 

i 

i 

€ 

4 
i 
i 
i 
( 
( 



I 
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I 



i 



t 
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< 

4 

t 
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i 
t 
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— Searc 


h keyword list 


115 






116 






117 






lie 






119 






120 


010610 


105715 


121 


010612 


001413 


122 


010614 


121527 000052 


123 


010620 


001410 


124 


010622 


005701 


125 


010624 


001006 


126 






127 






128 






129 


010626 


010504 


130 


010630 


000261 


131 


010632 


000404 


132 






133 






134 






135 


010634 


005004 


136 


010636 


000261 


137 


010640 


000401 


138 






139 






140 






141 


010642 


000241 


142 






143 






144 






145 


010644 


012603 


146 


010646 


012605 


147 


010650 


012602 


148 


010652 


012601 


149 


010654 


012600 


150 


010656 


000207 
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then we have a match. Otherwise we may have an ambigious keyword 
or we may have to continue searching. 

This algorithm depends on shortest legitimate match occurring first 
in table. Otherwise, will get spurious ambiguities. 



1*: 



TSTB 


<R5> 


BEQ 


7* 


CMPB 


<R5>,#'* 


BEQ 


7* 


TST 


Rl 


BNE 


7* 



We have an ambiguous keyword 



21*: 



MOV 
SEC 
BR 



R5, R4 

10* 

Cannot find keyword in table 

20*: CLR R4 
SEC 
BR 10* 

We found keyword in table 

7*: CLC 



Finished 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



<SP>+, R3 
<SP)+, R5 
<SP)+, R2 
(SP)+,R1 
<SP>+, RO 



;Are we at the end of the table entry also? 

; yes> we have an exact match 

; Is next table char "#"? 

i If yes, then this is acceptable abbrev 

; Have we already seen "*"? 

; If yes then we have an acceptable abbrev 



; Make R4 non-zero to signal ambigious case 
;Signal failure on return 
> Finished 



; Signal unrecognizable command 
/Signal failure on return 



•Signal success on return 



; Recover command string pointer 



i 

4 
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i 
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< 
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i 
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t 
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28 
29 
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33 
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10660 
10666 
10672 
10676 



10700 
10706 
10712 
10720 



10726 
10732 
10736 



10742 
10744 
10752 
10756 
10764 
10766 
10772 
11000 
11002 
11006 
11010 



004767 
000207 



1 52767 
000207 



004767 
012706 
004767 
000167 



010146 
152767 
116701 
122767 
103410 
004767 
032761 
001402 
004767 
012601 
000207 



. SBTTL FPRINT — Print fatal error message 

FPRINT IS CALLED TO PRINT A FATAL ERROR MESSAGE FROM 
WITHIN TSKMON. USE THE FERROR MACRO TO INVOKE FPRINT. 



000044 



FPRINT: . PRINT #KMFTXT 

. PRINT R5 

CALL KMNERR 
RETURN 



PRINT ERROR MESSAGE HEADER 

NOW PRINT ERROR MESSAGE 

SEE IF WE SHOULD ABORT COMMAND FILES 



OOOOOOG OOOOOOG 



. SBTTL PRTWRN — Print warning message 

PRTWRN is called to print a KMON warning message. 

Inputs: 
R5 - Pointer to asciz text string. 

PRTWRN: .PRINT #WRNHED ; Print warning heading 

.PRINT R5 ; Print warning message 

BISB #SC*WRN, INDERR ; Set warning severity for IND 
RETURN 

. SBTTL FKILL -- Print error message and abort 

FKILL IS JUMPED TO TO PRINT A FATAL ERROR MESSAGE, 
RESET THE STACK AND JUMP TO RDCMD. 
USE THE FABORT MACRO TO CALL FKILL. 



177732 
OOOOOOG 
000004 
OOOOOOG 



FKILL: 



CALL 
MOV 
CALL 
JMP 



FPRINT 
#KMSTK, SP 
KMNERR 
RDCMD 



PRINT FATAL ERROR MESSAGE 

CLEAN OFF STACK 

SEE IF WE SHOULD ABORT COMMAND FILES 

READ NEXT COMMAND 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

172312 

OOOOOOG OOOOOOG 

172412 



SBTTL KMNERR — Abort command files on KMON error 

KMNERR is called when a command error is detected by TSKMON. 

If error abort severity is set to abort on errors or warnings* 

all currently open command files are aborted. Otherwise execution 

continues 



SET ERROR SEVERITY FOR IND 

GET CURRENT JOB INDEX NUMBER 

ABORT ON ERRORS? 

BR IF NOT 

ABORT ALL OPEN COMMAND FILES 

SHOULD WE ABORT IND FILES ON ERRORS? 

BR IF NOT 

Abort execution of IND & nested command files 



KMNERR : 


MOV 


Rl, -<SP> 




BISB 


#SC*SEV, INDERR 




MOVB 


CORUSR, Rl 




CMPB 


#SC*SEV, ERRSEV 




BLO 


1* 




CALL 


ABRTCF 




BIT 


#*INDAB, LSW7<R1> 




BEG 


1* 




CALL 


INDABT 


1$: 


MOV 

RETURN 


<SP>+, Rl 



■; 
f 
i 
< 
t 

€ 

t 

i 
i 
* 

f 
1 
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5 
6 
7 
S 
9 
10 










11 










12 










^ s 










14 


O11012 


012567 


OOOOOOG 




15 


0H016 


011567 


0000060 




16 


011022 


005067 


0000 10G 




17 










IS 


011026 


004767 


174264 




19 










20 


011032 


121327 


000072 




21 


011036 


001011 






22 










23 


011040 


016767 


OOOOOOG 


OOOOOOG 


24 


011046 


005203 






25 


011050 


111300 






26 


011052 


004767 


003552 




27 


011056 


103363 






28 


011060 


000431 






29 










30 


011062 


016767 


OOOOOOG 


000002G 


31 


011070 


001425 






32 


011072 


016767 


000002G 


000004G 


33 


011100 


026727 


000002G 


1 32500 


34 


011106 


001003 






35 


011110 


012767 


132500 


000004G 


36 










37 


011116 


121327 


000056 




38 


011122 


001006 






39 


011124 


005203 






40 


011126 


004767 


174164 




41 


011132 


016767 


OOOOOOG 


000006G 


42 


011140 


000241 






43 


011142 


000207 






44 










45 










46 


011144 








47 


011160 


000261 






48 


011162 


000207 
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. SBTTL ACRFN — Accrue a file name 

ACRFN IS CALLED TO ACCRUE A FILE NAME IN THE STANDARD 
FORM "DV: NAME. EXT". 

WHEN CALLED, R3 MUST POINT TO THE START OF THE NAME 
AND R5 MUST POINT TO A 2 WORD BLOCK IN RAD50 FORM 
CONTAINING THE DEFAULT DEVICE NAME AND DEFAULT EXTENSION. 
ON RETURN, THE FILE SPEC IS IN RAD50 FORM IN THE 4 WORD 
BLOCK "FILNAM" AND R3 POINTS PAST THE END OF THE NAME. 
R3 AND R5 ARE ALTERED, ALL OTHER REGISTERS ARE PRESERVED. 
If an error occurs while accruing the file name* the 
C-flaq is set on return. 



ACRFN: MOV 
MOV 
CLR 
; ACCRUE NEXT 
2*: CALL 
» SEE IF THIS 
CMPB 
BNE 



(R5)+, FILNAM 

<R5),FILNAM+6 

FILNAM+8. 
FIELD OF NAME 

GTRD50 
IS THE DEVICE OR 

(R3>, #': 

1* 



i SET DEFAULT DEVICE 

; SET DEFAULT EXTENSION 

;N0 FILE SIZE 

i ACCRUE NAME IN RAD50 FORMAT 

FILE NAME 

; WAS THAT THE DEVICE NAME 

; BR IF NOT. MUST BE FILE NAME 



WE HAVE JUST ACCRUED THE DEVICE NAME 



WE 



1*: 



SEE 



5*: 



4$: 



MOV 
INC 
MOVB 
CALL 
BCC 
BR 
JUST GOT 
MOV 
BEG 
MOV 
CMP 
BNE 
MOV 
IF AN 
CMPB 
BNE 
INC 
CALL 
MOV 
CLC 
RETURN 



R50BUF, FILNAM 
R3 

<R3), RO 
CHKDLM 
2* 
3* 
THE FILE NAME 
R50BUF, FILNAM+2 
3* 



SET DEVICE NAME 

POINT PAST COLON 

GET 1ST CHAR OF FILE NAME 

SEE IF IT IS A DELIMITER 

BR IF NOT DELIMITER 

INVALID FILE NAME 



; STORE THE FILE NAME 

i MUST NOT BE NULL 
R50BUF+2, FILNAM+4 

FILNAM+2, #132500; WAS 1ST PART OF NAME "*"? 
5* ; BR IF NOT 

#132500, FILNAM+4; IF YES THEN MAKE 2ND PART BE 
EXTENSION WAS SPECIFIED 



TOO 



(R3), #'. 

4* 

R3 

GTRD50 

R50BUF, FILNAM+6 



IS EXTENSION PRESENT? 
BR IF NOT 
SKIP OVER PERIOD 
ACCRUE THE EXTENSION 
STORE THE EXTENSION 
SIGNAL SUCCESS ON RETURN 



i ERROR — INVALID FILE NAME 
3*: FERR #BDFNAM 

SEC 

RETURN 



i SIGNAL ERROR ON RETURN 
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4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








1 -7 


011164 


w j. w 1 *r w 




18 


011166 


010246 




19 


011170 


010446 




20 


011172 


010546 




21 








22 








23 








24 


011174 


122327 


000040 


25 


011200 


001775 




26 


011202 


005303 




27 








28 








29 








30 


011204 


012702 


0000000 


31 


011210 


1 1 2300 




32 


011212 


001416 




33 


011214 


120027 


000057 


34 


011220 


001413 




35 


011222 


120027 


000054 


36 


011226 


001410 




37 


011230 


120027 


000040 


38 


011234 


001405 




39 


011236 


120027 


000075 


40 


011242 


001402 




41 


011244 


1 1 0022 




42 


011246 


000760 




43 








44 








45 








46 


011250 


005705 




47 


011252 


001407 




48 


011254 


112722 


000075 


49 


011260 


162704 


000002 


50 


011264 


012705 


0000000 


51 


011270 


000402 




52 


011272 


012705 


000036G 


53 


011276 


105012 




54 


011300 


005303 




55 








56 








57 
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. SBTTL ACRFIL — Accrue full file specification 

ACRFIL is called to accrue a full file specification of the form 
dev: f i le. extCsize] 

Inputs: 
R3 = Pointer to file name which can be terminated by a null, 

comma, blank, or equal sign. 
R4 = Pointer to word containing default file extension. 
R5 = 0==>Input file, l==>Output file. 

Outputs: 
R3 ~ Pointer to delimiter at end of file spec. 
FILNAM = 5 word block containing file spec in RAD50 form. 
C-flag set on return if invalid file spec. 



ACRFIL: MOV 
MOV 
MOV 
MOV 



R 1 , - < 3F ) 
R2, -<SP> 
R4, -<SP> 
R5, -<SP) 



i Skip over leading spaces in front of the file spec 

6*: CMPB <R3>+, #' ; SKIP LEADING SPACES 
BEQ 6* 
DEC R3 i POINT TO 1ST NON-BLANK CHAR 

Move file spec to a holding buffer 



1*: 



MOV 


#BLKO, R2 


MOVB 


<R3>+, RO 


BEQ 


2* 


CMPB 


RO, #'/ 


BEQ 


2* 


CMPB 


RO, #', 


BEQ 


2* 


CMPB 


RO, #' 


BEQ 


2* 


CMPB 


RO, #' = 


BEQ 


2* 


MOVB 


RO, <R2) + 


BR 


1* 



; POINT TO HOLDING BUFFER 
;GET NEXT CHAR FROM FILE NAME 
;BR IF HIT END 
; TERMINATE ON SLASH 

; TERMINATE ON COMMA 

; TERMINATE ON BLANK 

; TERMINATE ON EQUAL SIGN 

iMOVE CHAR TO HOLDING BUFFER 
i GO GET NEXT CHAR 



Set up the file-spec as an input or output file. 



i INPUT OR OUTPUT TYPE FILE? 

; BR IF INPUT FILE 

; MAKE SPEC LOOK LIKE OUTPUT FILE 

; CORRECT DEFAULT EXTENSION POINTER FOR OUTPUT 

; CSISPC WILL PUT RESULT HERE 



2*: TST R5 

BEQ 4* 

MOVB #'=, (R2) + 

SUB #2, R4 

MOV #KCSIBF, R5 

BR 5* 

4*: MOV #KCSIBF+30. ,R5 ; CSISPC WILL PUT RESULT HERE 

5*: CLRB <R2) > PUT IN ASCIZ NULL AT END OF NAME 

DEC R3 ; POINT BACK TO DELIMITER 

> 

■> Use .CSISPC to parse the file spec 
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58 


011302 


010601 




MOV 


SP,R1 


59 


011304 






. CSISPC 


#KCSIBF, R4, 


60 


011320 


010106 




MOV 


Rl, SP 


61 


011322 


103410 




BCS 


9* 


62 












63 








i Move file sp 


ec to result 


64 












65 


011324 


012700 


0000000 


MOV 


#FILNAM, RO 


66 


011330 


012520 




MOV 


(R5)+> <R0) + 


67 


011332 


012520 




MOV 


(R5)+, <R0) + 


68 


011334 


012520 




MOV 


(R5)+, (R0) + 


69 


011336 


012520 




MOV 


(R5)+, (R0)+ 


70 


011340 


011510 




MOV 


<R5), <RO) 


71 












72 








i Finished 




73 












74 


011342 


000241 




CLC 




75 


011344 


012605 




9*: MOV 


<SP)+, R5 


76 


011346 


012604 




MOV 


<SP>+, R4 


77 


011350 


012602 




MOV 


<SP)+, R2 


78 


011352 


012601 




MOV 


(SP)+, Rl 


79 


011354 


000207 




RETURN 
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; SAVE SP ACROSS . CSISPC 
) j PARSE THE FILE SPEC 

j RESTORE SP (IGNORE SWITCH INFO FROM .CSISPC) 
; BR IF INVALID 



area 



POINT TO RESULT AREA 



; SIGNAL SUCCESS ON RETURN 
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13 01 
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16 

X / \J x 

IS 01 

19 01 

20 01 

21 01 

22 01 

23 01 

24 01 
25 

26 
27 
28 
29 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 
38 
39 
40 

41 

42 

43 01 

44 

45 

46 

47 01 

48 01 

49 01 
50 

51 
52 

53 01 

54 01 

55 01 

56 01 
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1356 
1360 
1362 



1364 
1370 
1374 



1402 
1404 
1410 
1414 
1416 
1422 
1424 



1426 
1430 
1432 
1436 
1442 
1446 
1450 
1452 



1460 
1464 
1470 



1472 
1474 
1476 
1500 



010246 
010346 
010546 



005067 
012700 
104375 



010500 
004767 
005767 
001421 
004767 
130312 
001415 



140312 
010500 
004767 
012703 
012702 
105723 
001003 
077203 



062705 
020567 
103744 



012605 
012603 
012602 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 

001070 
00000 1C 

000152 



001062 

OOOOOOG 

OOOOOOG 



1454 004767 000022 



OOOOOOG 
OOOOOOG 



. SBTTL DMTALL — Dismount and deallocate all devices 
Dismount and deallocate all devices that are mounted by the current job. 



DMTALL: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R5, -<SP> 



Deallocate all devices allocated by this job 



CLR ALCDEV 
MOV #DLCEMT, RO 
EMT 375 



> Say to deallocate all devices for this job 
; Point to EMT argument block 
;Deallocate all devices for this job 



1*: 



MOV 


CSHDEV, R5 


MOV 


R5, RO 


CALL 


CDGET 


TST 


CDBUF+CD*DVU 


BEQ 


2* 


CALL 


CDJFLG 


BITB 


R3, <R2) 


BEQ 


2* 



3*: 



Search through mount table looking for devices mounted by our job 

Point to table of mounted devices 

Get address of mount entry 

Read mount entry into CDBUF 

Is this table entry in use? 

Br if not 

Get mount-flag for our job 

Is this device mounted by us? 

Br if not 

Found a device that is mounted by us, 

reset mount flag for our job and see if device is mounted 

by any other jobs. 

BICB R3, <R2) i Reset mount flag for our job 

MOV R5j RO .Get address where block is to be stored 

CALL CDPUT i Write updated block back into kernel data 

MOV #CDBUF+CD*J0B,R3;Get address of mount-flag table 

MOV #CD**UB, R2 ; Get # bytes in mount-flag table 

TSTB <R3>+ iAny other jobs using this device? 

BNE 2* > Br if yes 

SOB R2, 3* 

No other jobs have this device mounted. 

Free the mount table entry for this device and remove 

any file entries from cache. 

CALL DMTSUB i Dismount this device and all of its files 

Check next entry in mount table 



>*: 



ADD 


#CD**SZ, 


CMP 


R5, CSHDV 


BLO 


1* 


inished 




MOV 


(SP )•+•; R5 


MOV 


(SP)+. R3 


MOV 


(SP)+* R2 


RETURN 





; Point to next entry in mount table 
; Any more entries? 
; Loop if yes 
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— Remove a device from directory cache 



011502 010346 



. SBTTL DMTSUB — Remove a device from directory cache 

DMTSUB is called to remove from the mount table a specific device 
and to remove from the directory cache any files associated with 
the device. 

Inputs: 
CDBUF contains mount table entry for device to be dismounted. 

DMTSUB: MOV R3, -<SP> 

See if this device is a loaical disk mounted bu us 



011504 016700 OOOOOOG MOV 

011510 005003 CLR 

011512 026763 00000 1C OOOOOOG 1*: CMP 

011520 001004 BNE 

011522 026763 000001C OOOOOOG CMP 

011530 001412 BEQ 

011532 005200 2*: INC 

011534 062703 000002 ADD 

011540 020327 000016 CMP 

011544 101762 BLOS 



R SOLDO, RO > Get LDO as initial device name 

R3 ; Init LD table index 

CDBUF+CD*DVU, LDPDEV(R3) .Is this LD on same physical device? 

2* > Br if not 

CDBUF+CD*BAS, LDBASE<R3> ; Same starting block numbers? 



3* 
RO 
#2, R3 

R3. #14. 
1* 



i Br if yes — Found logical disk that matches 
i Advance logical disk name 
; Advance LD table index 
.Checked all logical disks? 
; Br if not 



This is not a logical disk. 
Get physical device name. 



011546 016700 000001C 
011552 004767 001724 



011556 010067 OOOOOOG 
011562 012700 OOOOOOG 
011566 104375 



011570 012603 
011572 000207 



3*: 



MOV 


CDBUF+CDU.D 


CALL 


CVDVNM 


Do dismount 


EMT 


MOV 


RO, MNTDEV 


MOV 


#DMTARG, RO 


EMT 


375 


Finished 




MOV 


<SP>+, R3 


RETURN 





CDBUF+CD*DVU, RO ; Get physical device and unit number 

; Convert to device name 



; Set name of device to dismount 
; Point to EMT argument block 
; Dismount the device 
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— Get user-flag 


for cac 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 


011574 


1 1 i.~rnri 

A -I W f \JuJ 


0000000 


14 


011600 


006203 




i5 


Oil 602 


005303 




16 


011604 


005002 




■4 T 
I t 


\J i. 1DUO 


w/ lc-e./ 


000010 


IS 


011612 


062702 


OOOOOOC 


19 


011616 


012700 


000001 


20 


011622 


072003 




21 


011624 


010003 




22 


011626 


000207 
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SBTTL CDJFLG 



Get user-flag for cached device entry 



CDJFLG is called to locate within a cached-device table entry the 
specific mount-flag that corresponds to the current job. 

Inputs: 
CORUSR = Current job index number. 

Outputs: 
R2 = Address of byte that contains mount— flag. 
R3 = Mount-flag bit positioned correctly within byte. 



CDJFLG: MOVE 
ASR 
DEC 
CLR 
uxv 
ADD 
MOV 
ASH 
MOV 
RETURN 



CORUSR, R3 

R3 

R3 

R2 

#8. , R2 

#CDBUF+CD*J0B,R2 

#1, RO 

R3, RO 

RO, R3 



JUl 



i Get c urrent 

■> Convert to index by 1 

iMake base job number 

;Clear for divide 

^Divide by 8 jobs per byte 

Get address of byte within 

Get a mount flag 

Position flag according to 

Return flag in R3 



entry in CDBUF 
job number 
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5 
6 
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19 
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28 
29 
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31 
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36 
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38 
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41 
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— See if requested device is legal 



011630 010146 
011632 010246 



011634 010501 

011636 010500 

011640 004767 

011644 103402 

011646 016201 



001776 
000004 



011652 005000 

011654 071027 

011660 012702 

011664 005701 

011666 001406 

011670 162701 

011674 010102 

011676 020227 000007 

011702 101027 

011704 070027 000050 



000050 
177777 



000036 



011710 020 1 67 OOOOOOG 

011714 001403 

011716 020167 OOOOOOG 

011722 001007 

011724 016704 OOOOOOG 

011730 005702 

011732 002015 

011734 116702 00000 1G 

011740 000412 



011742 016704 OOOOOOG 



. SBTTL CHKDEV — See if requested device is legal 

CHKDEV is called to convert a device name into the corresponding 
device index number and unit number. 



Inputs: 
R5 - Device-unit specification in radSO form (e.g. 



"RK1") 



Outputs: 
RO = Unit number of device 
R4 = Index into device tables 
C-flaq set on return if the device is not recoanized. 



CHKDEV: 



MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 



If this name has been assigned* substitute physical device name for 
logical device name. 

i GET LOGICAL DEVICE NAME 

SEE IF DEVICE NAME HAS BEEN ASSIGNED 

BR IF NOT ASSIGNED 

REPLACE LOGICAL DEVICE NAME WITH PHYSICAL 



MOV 


R5, Rl 


MOV 


R5, RO 


CALL 


ASNSRC 


BCS 


11* 


MOV 


4(R2),R1 



Get device name and split off unit number. 



11*: 



6*: 



CLR 
DIV 
MOV 
TST 
BEG 
SUB 
MOV 
CMP 
BHI 
MUL 



RO 

#50, RO 
#-1, R2 
Rl 
6* 

#36, Rl 
Rl, R2 
R2, #7 
8* 
#50, RO 



SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

ASSUME NO UNIT NUMBER SPECIFIED 

WAS A UNIT NUMBER SPECIFIED? 

BR IF NOT 

CONVERT RADSO DIGIT TO BINARY VALUE 

GET BINARY VALUE OF UNIT NUMBER 

RESTRICT UNIT NUMBER TO RANGE 0-7 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT NUMBER 



The radSO device name less unit number is now in Rl. 

R2 has the binary value of the unit number or -1 if no unit number 

mas specified. 

Translate "SY: " and "DK: " to physical device. 

IS DEVICE NAME "DK"? 
BR IF YES 

IS DEVICE NAME "SY"? 
BR IF NOT 
2*: MOV SYINDX,R4 ; GET SY DEVICE INDEX NUMBER 

DID USER SPECIFY A UNIT NUMBER? 

BR IF YES 

GET SYSTEM DEVICE UNIT NUMBER 



Look up device name in permanent device name table. 
3*: MOV NUMDEV, R4 ; GET INDEX NUMBER OF LAST DEVICE 



CMP 


Rl, R50DK 


BEG 


2* 


CMP 


R1.R50SY 


BNE 


3* 


MOV 


SYINDX, R4 


TST 


R2 


BGE 


7* 


MOVB 


SYUNIT+1, R2 


BR 


7* 
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CHKDEV - 


— See i 


f reques 


ted devi 


58 


011746 


020164 


OOOOOOG 


59 


011752 


001405 




60 


011754 


162704 


000002 


61 


011760 


002372 




62 








63 








64 








65 


011762 


000261 




66 


011764 


000414 




67 








68 








69 








70 


011766 


01 0200 




71 


011770 


002001 




72 


01 1772 


005000 




73 








74 








75 








76 








77 


011774 


020467 


OOOOOOG 


78 


012000 


001005 




79 


012002 


010002 




80 


012004 


006302 




81 


012006 


005762 


OOOOOOG 


82 


012012 


001763 




83 


012014 


000241 




84 








85 








86 








87 


012016 


012602 




88 


012020 


012601 




89 


012022 


000207 
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5*: CMP R1,PNAME<R4> 

BEG 7* 

SUB #2, R4 

BGE 5* 



Invalid device name 

8*: SEC 

BR 10* 

Found device name. 



SEARCH FOR NAME IN TABLE 

BR IF FOUND 

TRY NEXT ENTRY 

LOOP IF MORE TO CHECK 



i SIGNAL INVALID DEVICE NAME 
> RETURN 



7$: 



MOV 
BGE 



R2, RO 

1* 

RO 



Translate no unit number into # 0. 



GET UNIT NUMBER VALUE 

BR IF UNIT NUMBER WAS SPECIFIED 

SAY UNIT # » O IF NONE SPECIFIED 



If the device is a logical disk <LDn), check to make sure the 
particular unit is mapped to a file 

1*: CMP R4, LDDEVX ; IS THIS A LOGICAL DISK? 

BR IF NOT 
GET UNIT NUMBER 
CONVERT TO WORD TABLE INDEX 
IS UNIT MAPPED TO A FILE? 
BR IF NOT 

9*: CLC i SIGNAL GOOD RETURN 



10* 



CMP 


R4, LDDEVX 


BNE 


9* 


MOV 


RO, R2 


ASL 


R2 


TST 


LDPDEV(R2) 


BEG. 


8* 


CLC 




Finished — 


Return 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 
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010446 




£ 16 


012030 
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IS 
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012032 


004767 


177572 
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012036 


103437 
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012040 
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OOOOOOG 
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012044 


001006 




27 


012046 


006300 




£ 28 


012050 


016004 


000000G 


* 29 


012054 


016003 


OOOOOOG 


30 


012060 


000403 




31 


012062 


000300 




* 32 


012064 


050004 




33 


012066 


005003 




34 
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36 








37 


012070 


016705 


OOOOOOG 


* 38 


012074 


010500 




39 


012076 


004767 


000376 


40 


012102 


020467 


00000 1C 


' 41 


012106 


001003 




42 


012110 


020367 


00000 1C 


43 


012114 


001407 




i 44 


012116 


062705 


OOOOOOG 


45 


012122 


020567 


OOOOOOG 


46 


012126 


103762 




< 47 


012130 


000261 




48 


012132 


000401 




49 








* 50 








51 








52 


012134 


000241 




* 53 








54 








55 








* 56 


012136 


012605 




57 


012140 


012604 
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SBTTL CHKMNT — See if device is mounted 



CHKMNT is called to determine if a specified device is mounted 
by any users. 



Inputs: 
R5 = Rad50 device-unit name. 

Outputs: 
C-flag cleared ==> Device is mounted. 
C-flag set ==> Device is not mounted. 
CDBUF contains mount table entru for device. 



CHKMNT: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
R5, -<5P) 



Convert device name into device index number and unit number 



CALL 
BCS 



CHKDEV 
9* 



; Convert device name to device # and unit # 
; Br if invalid device name 



If this device is a logical disk> get base block # and physical dev info 



1*: 



CMP R4, LDDEVX 

BNE 1* 

ASL RO 

MOV LDPDEV<R0),R4 

MOV LDBASE<R0>,R3 

BR 2* 

SWAB RO 

BIS RO, R4 

CLR R3 



;Is this a logical disk? 

; Br if not 

; Convert unit # to word table index 

; Get physical disk device # and unit # 

; Get base block # of logical disk file 

i Put unit # in high-order byte 

{Combine unit # and device # 

;Base block # = if not logical disk 



Search mount table for this device 



2*: MOV CSHDEV, R5 

3*: MOV R5, RO 

CALL CDGET 

CMP R4, CDBUF+CD*DVU 

BNE 4* 

CMP R3, CDBUF+CD*BAS 

BEG 5* 

4*: ADD #CD**SZ,R5 

CMP R5, CSHDVN 

BLO 3* 
6*: SEC 

BR 9* 



Point to start of mount table 

Get addr of mount table entry 

Copy mount table entry into CDBUF 

Is entry for this device? 

Br if not 

Check base block numbers too 

Br if found entry for this device 

Point to next mount table entry 

Hit end of table? 

Loop if not 

Device is not mounted at all 



We found entry for this device in mount table. 
5*: CLC ; Signal that device is mounted 

Finished 



9*: 



MOV 
MOV 



<SP)+, R5 
(SP)+, R4 



( 
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CHKMNT — See if device is mounted 

58 012142 012603 MOV <SP)+, R3 

59 012144 000207 RETURN 
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CHKMTX — See if device is mounted by 



3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


012146 


010246 


13 


012150 


010346 


14 


012152 


010446 


15 


012154 


010546 


16 






17 






ie 






19 


012156 


004767 177412 


20 


012162 


111204 


21 


012164 


140312 


22 






23 






24 






25 


012166 


012705 OOOOOOC 


26 


012172 


012700 OOOOOOG 


27 


012176 


105725 


28 


012200 


001004 


29 


012202 


077003 


30 


012204 


110412 


31 


012206 


000241 


32 


012210 


000402 


33 


012212 


110412 


34 


012214 


000261 


35 






36 






37 






38 


012216 


012605 


39 


012220 


012604 


40 


012222 


012603 


41 


012224 


012602 


42 


012226 


000207 
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other users 

. SBTTL CHKMTX — See if device is mounted by other users 

CHKMTX is called to see if a mounted device has been mounted by 
any users other than the current user. 

Inputs: 
CDBUF contains mount table entry for device 

Outputs: 
C-flag set ===> Device is mounted by other users. 



CHKMTX: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP> 



Get mount flag for current job 



CALL 
MOVB 
BICB 



CDJFLG 
<R2),R4 
R3, (R2) 



i Get mount flag for our job 

i Save mount flags for byte with our mount flag 

; Clear mount flag for our job 



See if any other jobs have this device mounted 

#CDBUF+CD*JOB; R5; Point to table with mount flags 

; Get # bytes in table 
j Any other mount flags set? 
; Br if yes 

i Reset mount flag for our job 

i Signal that device is not mounted by others 

i Reset mount flag for our job 

j Signal that device is mounted by others 





MOV 


#CDBUF+CD* 




MOV 


#CD**UB, RO 


7*: 


TSTB 


<R5) + 




BNE 


8$ 




SOB 


RO, 7* 




MOVB 


R4, (R2) 


6*: 


CLC 






BR 


9* 


8*: 


MOVB 


R4, <R2) 




SEC 






Finished 




9$: 


MOV 


<SP>+, R5 




MOV 


<SP>+, R4 




MOV 


<SP)+, R3 




MOV 


(SP)+, R2 




RETURN 
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— Check to see if a CL unit is in use 



1 

c 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

A —r 
I / 

IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



012230 



012230 005760 OOOOOOG 

012234 001404 

012236 016000 0000000 

012242 006200 

012244 000420 



012246 006200 

012250 020027 000007 

101405 

162700 000010 
012262 066700 165632 
012266 000402 
012270 066700 165616 
012274 010067 OOOOOOG 
012300 012700 OOOOOOG 
012304 104375 



012306 000207 



. SBTTL CKCLUS — Check to see if a CL unit is in use 

Check to see if a CL unit is in use by any job. 

Inputs: 
RO = CL unit index (2 * CL unit number) 

Outputs: 
RO = Number of any job that is using CL unit (0 if free) 

CKCLUS: 

See if CL unit is in use by SET HOST 



TST CL*XLN(R0) 

BEG. 1* 

MOV CL*XLN<RG>, RO 

ASR RO 

BR 9* 



; Any job using with SET H0ST1 

j Br if not 

> Get number of job 

; Convert index # to job # 



See if any job has CL unit open or allocated 



1*: 



2*: 
3*: 



Finished 
9*: RETURN 



ASR 


RO 


CMP 


RO, #7. 


BLOS 


2* 


SUB 


#8. , RO 


ADD 


R 50C10/ RO 


BR 


3* 


ADD 


R50CL0, RO 


MOV 


RO, ALCDEV 


MOV 


#TALEMT, RO 


EMT 


375 



; Convert to unit number 

; Is this a CL or CI unit? 

; Br if CL 

i Remove CI unit bias 

.; Form RadSO device name 

; Form rad50 device name 

> Set device name for EMT 
iPoint to check-allocation EMT 

> See if this unit is allocated or in use 
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01 
01 
01 



2310 
2312 
2314 



010046 
010446 
010546 



012316 010067 OOOOOOG 



01 
01 
01 
01 



01 
01 
01 
01 



2322 
2324 
2330 
2334 



2336 
2342 
2344 
2346 



010005 

004767 177300 

120467 OOOOOOG 

001455 



012700 
104375 
010005 
103017 



OOOOOOG 



01 
01 
01 
01 
01 
01 



2350 
2356 
2360 
2366 
2370 
2404 



123727 
001444 
123727 
001007 

000422 



OOOOOOG 000002 



OOOOOOG 000001 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 



2406 
2410 
2412 
2416 
2420 
2422 
2426 
2430 
2434 
2436 
2452 
2456 



010500 
001427 
120467 
001424 
006300 
120067 
001420 
005727 
001415 



OOOOOOG 



OOOOOOG 



OOOOOOG 



. SBTTL CHKALC 



Determine if device is allocated to another user 



CHKALC is called to determine if a device is allocated to another user. 
If the device is allocated to another user, an error message is printed 
and control is returned to RDCMD. 



Inputs: 
RO = RAD50 device name 



CHKALC: MOV 
MOV 
MOV 



RO, -<SP> 
R4, -<SP> 
R5, -<SP) 



Set name of device in EMT argument block 

MOV RO, ALCDEV > Set name of device for EMT 
Don't do allocation test for LD device 



; Get name of device 

; Convert to device index number 

; Is this a LD device? 

; Br if yes — allocation ok 



Execute EMT that wi 1 1 test for allocation conflict 



MOV 


RO, R5 


CALL 


CHKDEV 


CMPB 


R4, LDDEVX 


BEQ 


9* 



MOV 
EMT 
MOV 
BCC 



#TALEMT, RO 
375 
RO, R5 
15* 



; Point to EMT argument block 

; Do allocation test 

; Save # of any job that is using device 

; Br if allocation is ok 



An error occurred on the test allocation. 
Print error message. 



CMPB 


S#ERRLOC, #2 


BEQ 


9* 


CMPB 


@#ERRLOC, #1 


BNE 


15* 


FERR 


#EM*DAA 


BR 


17* 



004767 173476 



> Inval id device? 
> Br if yes 

; Device already allocated by someone else? 
i Br if not 

> Device allocated by another job 



Device is either not allocated or is allocated to another 

job from the same primary line. 
See if device is in use by another job 

15*: MOV R5, RO ; Get # of job using device 

Br if no job using device 

Is device a CL unit? 

Br if family member wants CL unit 

Convert to job index number 

In use by our job? 

Br if yes 

Do uje want to consider this as an error*'-* 

Br if not 

Device is in use by another user 
17*: CALL PRTDEC ; Print the number of the job that has the dev 

Terminate the print line 



MOV 


R5, RO 


BEG 


9* 


CMPB 


R4, CLDEVX 


BEQ 


9* 


ASL 


RO 


CMPB 


RO, CORUSR 


BEQ 


9* 


TST 


#KUSECK 


BEQ 


9* 


FERR 


#EM*DIU 


CALL 


PRTDEC 



PRINT #CRLF 



I 
I 

€ 

I 

i 

« 

i 

f 

« 

« 

« 
I 
I 
i 

I 

c 



TSKMN3 — TSKMON Subroutines MACRO V05. 05 Thursday 19-Jan-B9 09:16 Page 66-1 

CHKALC — Determine if device is allocated to another user 

58 012464 000167 OOOOOOG JMP RDCMD ; Abort the command 

59 ; 

60 i We can access the device 

61 i 

62 012470 012605 9*: MOV <SP>+, R5 

63 012472 012604 MOV (SP)+, R4 

64 012474 012600 MOV <SP)+, RO 

65 012476 000207 RETURN 
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Get local copy of mount device entry 



012500 010067 OOOOOOG 

012504 012700 OOOOOOG 

012510 104375 

012512 012700 OOOOOOG 

012516 000207 



012520 010067 OOOOOOG 

012524 012700 OOOOOOG 

012530 104375 

012532 000207 



. SBTTL CDGET 



Get local copy of mount device entry 



CDGET is called to move a copy of a system mount device (cache) 
entry into CDBUF. 



Inputs: 
RO = Address within kernel of mount block to get. 

Outputs: 
Copy of block is in CDBUF. 
RO = Pointer to CDBUF. 



CDGET: 



MOV 


RO, CDGADR 


MOV 


#CDGEMT, RO 


EMT 


375 


MOV 


#CDBUF, RO 







SBTTL CDPUT 



i Set address of block to get 
i Get address of EMT arg block 
i Get copy of block 
; Return pointer to CDBUF in RO 



Store mount descriptor block into kernel 



CDPUT is called to copy a device mount (cache) descriptor block from 
CDBUF into the kernel data base. 

Inputs: 
RO = Address within kerenl where block is to be stored. 
CDBUF = Copy of block to be moved. 



CDPUT: 



MOV 


RO, CDPADR 


MOV 


#CDPEMT, RO 


EMT 


375 


RETURN 





; Set destination address 

; Point to EMT argument block 

i Store the block 
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— Perform SET LD CLEAN operation 



1 

r> 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
1 / 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



012534 010246 
012536 010546 



012540 016705 
012544 005002 



OOOOOOG 



012546 010200 

012550 006300 

012552 006300 

012554 005760 OOOOOOG 

012560 001423 



012562 010567 OOOOOOG 

012566 012700 OOOOOOG 

012572 105267 OOOOOOG 

012576 104375 

012600 105067 OOOOOOG 



012604 004767 000042 



012610 005762 OOOOOOG 

012614 001405 

012616 010567 OOOOOOG 

012622 012700 OOOOOOG 

012626 104375 



012630 005205 

012632 062702 000002 

012636 020227 000016 

012642 101741 



012644 012605 
012646 012602 
012650 000207 



. SBTTL LDCLEN 



Perform SET LD CLEAN operation 



LDCLEN call be called to perform the SET LD CLEAN function. 
It also causes the file directory cache to be cleaned out. 



LDCLEN: 



MOV 
MOV 



R2, -<SP> 
R5, -<SP) 



Perform LD CLEAN operation (reset logical disk information) 



MOV 

CLR 



R50LD0. R5 
R2 



;GET NAME OF FIRST LOGICAL DISK (LDO) 
; GET INDEX TO 1ST LOGICAL DISK <LDO) 



See if this logical disk is in use 



1*: MOV R2, RO 
ASL RO 
ASL RO 
TST LDNAME<RO) 
BEG 2* 

Dismount the logical disk 



; GET LD INDEX NUMBER 
; * 4 WORDS PER ENTRY 

; IS THIS LOGICAL DISK IN USE? 
; BR IF NOT 



MOV 


R5, MNTDEV 


MOV 


#DMTARG, RO 


INCB 


SERFLG 


EMT 


375 


CLRB 


SERFLG 



iSET DEVICE NAME FOR DISMOUNT 
i DISMOUNT THE DEVICE 
; DO . SERR 

i DO . HERR 

Now reinitialize information about the logical disk 

CALL LDMNT ; CHECK IT 

Now remount the logical disk 



TST LDPDEV<R2) 
BEG 2* 
MOV R 5, MNTDEV 
MOV #MNTARG, RO 
EMT 375 

Check next logical disk 



IS THE LOGICAL DISK THERE? 
BR IF NOT 

SET DEVICE NAME FOR THE MOUNT 
MOUNT THE DEVICE 



2*: 



INC 


R5 


ADD 


#2, R2 


CMP 


R2, #14. 


BLOS 


1* 


i n i s h e d 




MOV 


<SP>+, R5 


MOV 


<SP>+, R2 


RETURN 





ADVANCE LDn NAME 

ADVANCE LOGICAL DISK INDEX NUMBER 
HAVE WE CHECKED ALL LOGICAL DISKS? 
BR IF NOT 
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1 

#-1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

ie 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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39 
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41 
42 
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51 
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. SBTTL LDMNT — Set up information about a logical disk 

LDMNT is called to set up information about a logical disk. 
Inputs: 

R2 = 2* logical disk # (0 to 14. ) 

LDNAME(unit) = Name of file associated with logical disk. 

Outputs: 
LDPDEV(unit) = Physical device index # and unit # 
LDSIZE(unit) = Size of file 

LDBASE(unit) = Base block on physical disk of start of logical disk 
Carru-flaa is set on return if file cannot be found. 



012652 010446 
012654 010546 



012656 004767 000466 



012662 010205 

012664 006305 

012666 006305 

012670 062705 OOOOOOG 

012674 005715 

012676 001475 

012700 112767 

012706 

012724 112767 

012732 103457 

012734 010062 



LDMNT: 



MOV 
MOV 



R4, -<SP> 
R5, -<SP> 



000001 OOOOOOG 
000000 OOOOOOG 
OOOOOOG 



012740 012705 OOOOOOG 

012744 

012762 016500 OOOOOOG 

012766 042700 177701 

012772 110062 OOOOOOG 

012776 116504 OOOOOOG 

013002 042704 177770 

013006 110462 00000 1G 

013012 016562 OOOOOOG OOOOOOG 



013020 032765 OOOOOOG OOOOOOG 

013026 001403 

013030 052762 OOOOOOG OOOOOOG 



Remove any entry for this logical disk from access control table 



CALL DLLDAC 

Do lookup on file 

MOV R2, R5 

ASL R5 

ASL R5 

ADD #LDNAME, R5 

TST <R5) 

BEQ 9* 

MOVB #1,SERFLG 

. LOOKUP #XAREA, #1, R5 

MOVB #0, SERFLG 

BCS 9* 

MOV RO, LDSIZE(R2) 



i REMOVE LD ENTRY FROM ACCESS CONTROL TABLE 



; GET UNIT # 

i #4 WORDS PER ENTRY 

i POINT TO FILE SPEC IN LDNAME TABLE 

i IS THERE A FILE SPEC FOR THIS DISK? 

; BR IF NOT 

;D0 . SERR TO AVOID ABORT FOR ILLEGAL DEVICE 

; LOOKUP THE FILE 

; DO . HERR (DON'T CLEAR C-FLAG) 

iBR IF CAN'T FIND THE FILE 

;SAVE THE SIZE OF THE FILE 



Do . SAVESTATUS to get information about the file 



MOV #BLKO, R5 

. SAVEST #XAREA, #1,R5 

MOV 

BIC 

MOVB 

MOVB 

BIC 

MOVB 



i POINT TO AREA FOR SAVESTATUS DATA 

i SAVE FILE STATUS 

; GET CSW 

; EXTRACT DEVICE UNIT # 

; SAVE PHYSICAL DEVICE INDEX NUMBER 

;GET PHYSICAL UNIT NUMBER 



C. CSW(R5), RO 

# A C76, RO 

RO, LDPDEV<R2) 

C. DEVQ(R5), R4 

# A C7, R4 

R4, LDPDEV+KR2) > SET PHYS UNIT # FOR LOGICAL DISK 



MOV 



C. SBLK<R5),LDBASE(R2) ; GET BASE BLOCK # OF LOGICAL DISK 



If we have read-only access to the file associated with the logical 
disk, set no-write flag for this LD entry. 

BIT #CS*RON, C. CSW(R5)i DO WE HAVE READ-ONLY ACCESS TO FILE? 

BEQ 2* i BR IF NOT 

BIS #LD*RON, LDFLAG(R2)i SET NO-WRITE FLAG FOR THIS LD 

See if the logical disk file is itself within a logical disk 
(i.e., this is a nested logical disk) 



013036 020067 OOOOOOG 



»*: 



CMP 



RO, LDDEVX 



i IS FILE ON A LOGICAL DISK? 
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013042 001007 

013044 006304 

013046 016462 OOOOOOG OOOOOOG 

013054 066462 OOOOOOG OOOOOOG 



013062 004767 000100 



013066 000241 
013070 000403 



013072 
013076 
013100 
013102 
013104 



005062 
000261 
012605 
012604 
000207 



OOOOOOG 



BNE 1* ;BR IF NOT 

ASL R4 ; CVT UNIT # TO LOG DISK TABLE INDEX 

MOV LDPDEV(R4>, LDPDEV<R2> > GET REAL PHYSICAL DEVICE & UNIT # 

ADD LDBASE<R4),LDBASE(R2> ; BIAS BASE BLOCK # BY LOG DISK BASE 

i 

i Make entry for the LD in the access control table. 

> 

1*: CALL ADLDAC > MAKE ENTRY IN ACCESS CONTROL TABLE 

i 

i Success 



CLC 
BR 



; SIGNAL SUCCESS ON RETURN 



10$ 



trror — could not find the file 



9*: 
10*: 



CLR 


LDPDEVvR 


SEC 




MOV 


(SP)+>R5 


MOV 


(SP)+, R4 


RETURN 





=:; 



; SAY LOGICAL DISK IS NOT ACTIVE 
; SIGNAL FAILURE ON RETURN 
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3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



013106 010246 

013110 006202 

013112 005767 OOOOOOG 

013116 001416 



013120 012700 OOOOOOG 

013124 126067 OOOOOOG OOOOOOG 1*: 

013132 001003 

013134 120260 OOOOOOG 

013140 001407 

013142 062700 OOOOOOG 2*: 

013146 020067 OOOOOOG 

013152 103764 



013154 000261 
013156 000401 



013160 000241 
013162 012602 
013164 000207 



. SBTTL CKLDAC — Check if LD is in access control table 

CKLDAC is called to determine if a certain logical disk is in the 
device/file access control table. 

Inputs: 
R2 = Logical disk index number (2 * unit #) 

Outputs: 
C~flag cleared ==> Found logical disk entry in access control table. 
C-flag set ==> Logical disk entry is not in access table. 
RO = Pointer to access control entry. 

i SAVE ORIGINAL LD INDEX NUMBER 

; CONVERT INDEX # TO UNIT # 

;ARE THERE ANY ENTRIES IN ACCESS TABLE? 

; BR IF NOT 

There are entries in the access control table. 
Search for entry matching our logical disk. 

j POINT TO START OF ACCESS TABLE 
OF$DEV(RO),LDDEVX > IS THIS ENTRY FOR A LOGICAL DISK? 

BR IF NOT 

IS ENTRY FOR SPECIFIED UNIT? 
BR IF YES — FOUND ENTRY 
POINT TO NEXT ACCESS ENTRY 
CHECKED ALL ENTRIES? 
BR IF NOT 



: MOV 


R2, -<SP> 


ASR 


R2 


TST 


RESDEV 


BEG 


4* 



MOV 


#OKFILE,RO 


CMPB 


OF*DEV<RO),LD 


BNE 


2* 


CMPB 


R2, OF*UNT(RO) 


BEG. 


3* 


ADD 


#OF**SZ, RO 


CMP 


RO, OKFAND 


BLO 


1* 



LD entry is not in access table 



4*: 



SEC 
BR 



; SIGNAL FAILURE ON RETURN 



9* 



Found LD entry in table 



3*: 
9*: 



CLC 
MOV 
RETURN 



<SP)+, R2 



; SIGNAL SUCCESS ON RETURN 
i RECOVER LD INDEX NUMBER 
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I 
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i i 

t 
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> ( 

i 



3166 
3172 



3174 
3176 



3202 
3206 
3212 
3214 
3220 

fe3cc£cL 

3226 



32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 

40 01 

41 01 

42 01 
43 
44 

45 

46 01 
47 
48 
49 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 

56 01 



3230 
3236 
3242 
3246 
3252 
3256 
3262 
3266 
3270 
3276 
3300 
3306 



3310 



3324 
3330 
3334 
3336 
3342 
3344 
3346 



005767 
001465 



010246 
010546 
006202 



012705 
020567 
103036 
005765 
001403 
062705 
000767 



116765 
110265 
012700 
010065 
010065 
010065 
105065 
006302 
032762 
001412 
152765 
000406 



062705 
020567 
101402 
010567 
012605 
012602 
000207 



. SBTTL ADLDAC 



Add LD entry to access control table 



ADLDAC is called to add a logical disk entry to the device/file 
access control table. If there are no protected devices or files 
no entry is made. 

Inputs: 
R2 = Logical disk index number (2 * unit number) 



0000000 



ADLDAC : TST 
BEG 



RESDEV 
9* 



There are entries 



tr » 1 it b 



J ANY ENTRIES IN ACCESS TABLE? 
i BR IF NOT 

he access control table 



MOV 
MOV 
ASR 



R2, -<SP> 
R5, -<SP) 
R2 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



1$: 



MOV 


#OKFILE, R5 


CMP 


R5, QKFNND 


BHIS 


3* 


TST 


0F*FIL(R5> 


BEG. 


2* 


ADD 


#OF**SZ, R5 


BR 


1* 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000002G 

000004G 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



; CONVERT LD INDEX # TO UNIT # 

Find a free entry in the access table 

POINT TO START OF ACCESS TABLE 

REACHED END OF TABLE? 

BR IF YES — TABLE OVERFLOW 

IS THIS ENTRY FREE? 

BR IF FREE 

POINT TO NEXT ENTRY 

GO CHECK IT 

We found a free entry. Add entry for LD. 

MOVB LDDEVX,0F*DEV<R5)j SET LOGICAL DISK DEVICE INDEX NUMBER 

MOVB R2, 0F*UNT<R5) > SET LOGICAL DISK UNIT # 

MOV #WLDNAM, RO > SET FILE NAME TO WILDCARDS 

MOV RO, 0F*FIL<R5> 

MOV RO, 0F*FIL+2<R5) 

MOV RO, QF*FIL+4<R5> 

CLRB 0F*FLG<R5) ; INITIALLY CLEAR ALL CONTROL FLAGS 

ASL R2 jCVT UNIT # TO LD INDEX # 

BIT #LD*RON, LDFLAG<R2)i IS LOGICAL DISK WRITE PROTECTED? 

BEQ 4* i BR IF NOT 

BISB #OT*RON, 0F*FLG<R5); SET READ-ONLY FLAG IN ACCESS TABLE 

BR 4* 

Error — Access table overflow 

3*: FERR #TBLOVF i TABLE OVERFLOW 

Finished. Extend ACCESS table end ptr if u»e need to. 

iPoint past this entry 

; Is it past the end? 

iBr if not, don't need to extend 

iExtend the table end ptr 



4*: 


ADD 


#OF$*SZ, R5 




CMP 


R5, OKFAND 




BLOS 


41* 




MOV 


R5, OKFAND 


41*: 


MOV 


<SP)+, R5 




MOV 


<SP)+, R2 


9$: 


RETURN 
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1 

e: 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



013350 004767 177532 
013354 103416 



013356 105060 0000000 
013362 105060 OOOOOOG 
013366 005060 OOOOOOG 



. 5BTTL DLLDAC 



Delete LD entry from access control table 



DLLDAC is called to delete any entry in the access control table 
for a specified logical disk. 



Inputs: 
R2 = Logical disk index number <2 * unit number) 



DLLDAC: CALL 
BCS 



CKLDAC 
1* 



; IS THERE AN ENTRY FOR THIS LD IN TABLE? 

i BR IF NOT 



We have found an entry in the access table for this LD. 
RO = Pointer to the entry. 



CLRB OF*DEV<RO> 
CLRB OFfUNT(RO) 
CLR OF*FIL(RO) 



; MARK ENTRY AS FREE 



013372 062700 OOOOOOG 

013376 020067 OOOOOOG 

013402 103403 

013404 162767 OOOOOOG OOOOOOG 



013412 000207 



If we had to extend the ACCESS table end ptr to include this entry, 
then reduce it back to below this entry. 

.Point past table entry 

> Was it the last entry? 

i Br if not 

; It was last entry, drop below it 



1*: 



ADD 


#OF**SZ, RO 


CMP 


RO, OKFAND 


BLO 


1* 


SUB 


#CF**SZ, OKFAND 


Finished 




RETURN 
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TSKMN3 - 


— TSKMO 


N Subrou 
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DOASGN - 

1 

c 

3 


— Add entry to 


the ASS 








4 








5 








6 








7 








8 








9 


013414 


010246 




10 








11 








12 








13 


013416 


004767 


000220 


14 


013422 


103402 




15 


013424 


016200 


000004 


16 








17 








IS 








19 


013430 


010046 




20 


013432 


010500 




21 


013434 


004767 


000202 


22 


013440 


103010 




23 








24 








25 








26 


013442 


005000 




27 


013444 


004767 


000172 


28 


013450 


103004 




29 


013452 






30 








31 








32 








33 


013462 


010522 




34 


013464 


005022 




35 


013466 


012622 




36 


013470 


005022 




37 


013472 


005022 




38 


013474 


005022 




39 








40 








41 








42 


013476 


012602 




43 


013500 


000207 
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. SBTTL DOASGN — Add entry to the ASSIGN table 

DOASGN is called to make an entry in the ASSIGN table. 

Inputs: 
R5 = Logical device name. 
RO = Physical device name. 

DOASGN: MOV R2, -<SP> 

Determine if the "physical" device name is actually a logical name 

1*: CALL ASNSRC 
BCS 2* 
MOV 4(R2>,R0 

* 

; See if an entry already exists in the assign table for this logical name 

> 

=»*: MOV RO, -(SP) ; SAVE PHYSICAL DEVICE NAME 

GET LOGICAL NAME 

LOOK IT UP 

BR IF FOUND ENTRY — REUSE THE ENTRY 

Add a new entry to the assign table 



i 

4 



i BR IF NOT 

j REPLACE PHYSICAL NAME WITH NEW NAME 



MOV 


RO, -(SP) 


MOV 


R5, RO 


CALL 


ASNSRC 


BCC 


3* 





CLR 


RO 




CALL 


ASNSRC 




BCC 


3* 




FABORT 


#ASNOVF 


; Move 


inf orma 


tion into as 


3*: 


MOV 


R5, (R2) + 




CLR 


(R2) + 




MOV 


(SP>+, (R2> + 




CLR 


<R2) + 




CLR 


(R2) + 




CLR 


(R2) + 


; Finished 






MOV 


(SP>+, R2 




RETURN 





SEARCH FOR A FREE ENTRY IN THE ASSIGN TABLE 
LOOK FOR FREE ENTRY 
BR IF FOUND ONE 
ASSIGN TABLE OVERFLOW 



LOGICAL NAME 
NO FILE SIZE 
PHYSICAL DEVICE NAME 
NO FILE NAME 



i NO EXTENSION 
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. SBTTL CVDVNM — Convert device number to device name 

CVDVNM is called to convert a device number / unit number combination 
into a RAD50 device name. 

Inputs: 
RO = Device number (low-order byte)* unit number (high-order byte) 



013502 

13 013504 

14 013506 

15 013510 

16 013514 

17 013520 
IS 013524 

19 013530 

20 013532 

21 013534 



010346 
010003 
000303 
042703 
042700 
016000 
062703 
060300 
012603 
000207 



177770 
1 77400 

000000G 
000036 



i Outputs: 




; RO » RAD50 


device name. 


CVDVNM: MOV 


R3- -<SP) 


MOV 


RO, R3 


SWAB 


R3 


BIC 


# A C7, R3 


BIC 


# A C377, RO 


MOV 


PNAMKRO), RO 


ADD 


#30. , R3 


ADD 


R3, RO 


MOV 


<SP)+, R3 


RETURN 





;Copy device # and unit # 

; Put unit # in loui-order byte 

; Clear all but unit number in R3 

i Clear all but device number in RO 

> Get base device name 

; Convert unit number to RAD50 character 

; Combine unit number with device name 
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17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



TSKMON Subroutines 
See if device name is 



013536 



013536 
013542 
013544 
013546 
013550 
013554 
013556 
013562 
013564 
013570 



013572 
013576 
013600 
013604 
013606 
013612 
013614 
013620 
013622 
013626 



013632 
013634 



020067 
001002 
005000 
000431 
020067 
103406 
020067 
101003 
166700 
000420 



020067 
001003 
012700 
000412 
020067 
103411 
020067 
101006 
166700 
062700 



000241 
000401 



013636 000261 



013640 00020/ 
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CL or CI unit 

. SBTTL CHKCLU — See if device name is CL or CI unit 

Determine if a rad50 device name is a CL or CI unit. 
If soi determine the unit number. 

Inputs: 
RO = RAD50 device name <e. g. , CL2) 

Outputs: 
C-flag cleared ===> This is a CL or CI unit 
C-flag set ==> This is not a CL or CI unit 
RO = CL unit number <0-15> 

CHKCLU: 

See if this is a CL unit 



164346 

164336 
164332 



164320 

000010 

164306 

164302 

164272 
000010 



1$: 



CMP 

BNE 

CLR 

BR 

CMP 

BLO 

CMP 

BHI 

SUB 

BR 



RO, R50CL 

1* 

RO 

7* 

RO, R50CL0 

2* 

RO, R50CL7 

2* 

R50CL0, RO 

7* 



See if this is a CI unit 

2*: CMP RO, R50C1 

BNE 3* 

MOV #8. , RO 

BR 7* 

3*: CMP RO, R50C10 

BLO 8* 

CMP RO, R50C17 

BHI 8* 

SUB R SOCIO, RO 

ADD #8. , RO 



This is a CL or CI unit 



7*: 



CLC 
BR 



9* 



This is not a CL or CI unit 
8*: SEC 

Fini shed 
9*: RETURN 



> Is name "CL"? 

; Br if not 

; Translate to unit 

; Is unit in the range CLO to CL7? 

; Br if not 

; Br if not 

; Get unit number 



■> Is unit name "CI"? 
; Br if not 
; CI = unit 8 

; Is unit in the range CIO to C17? 

i Br if not 

Br if not 

Get CI unit number 

Add CI unit bias 



Signal success on return 



Signal failure on return 



TSKMN3 - 


— TSKMON Subrou 


bines 


ASNSRC - 

i 
2 
3 


■- Search assign 


table f 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


013642 


0101 46 




14 


013644 


012701 


0000000 


15 


013650 


012702 


OOOOOOG 


16 


013654 


020062 


0000000 


17 


013660 


001405 




18 


013662 


062702 


0000000 


19 


013666 


077106 




20 


1 3670 


000261 




21 


013672 


000401 




22 


013674 


000241 




23 


013676 


012601 




24 


013700 


000207 
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>r logical name 

. SDTTL ASNSRC — Search assign table for logical name 

ASNSRC is called to search the assign table for an entry 
with a specified logical name. 

Inputs: 
RO = Logical name to search for. 

Outputs: 
C~flag set on return if no assign block found with matching name. 
R2 = Address of assign block if one found. 



GET # ASSIGN BLOCKS 

POINT TO ASSIGN TABLE 

COMPARE LOGICAL NAMES 

BR IF WE FOUND BLOCK WE ARE LOOKING FOR 

POINT TO NEXT ASSIGN BLOCK 

LOOP IF MORE BLOCKS TO CHECK 

SIGNAL FAILURE 

; SIGNAL SUCCESS 



ASNSRC : 


MOV 


Rl. -<5F> 




MOV 


#MAXASN, Rl 




MOV 


#ASNTBL, R2 


1*: 


CMP 


RO, AT*L0G(R2) 




BEQ 


2* 




ADD 


#AT**SZ. R2 




SOB 


Rl, 1* 




SEC 






BR 


3* 


2*: 


CLC 




3*: 


MOV 

RETURN 


(SP)+, Rl 
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i 
« 

4 
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TSKMN3 
LOGASN - 

1 

•D 

fa— 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

-t ~7 m 
i. / \J X 

18 
19 
20 

21 01 

22 01 

23 01 
24 
25 
26 
27 

28 01 

29 01 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 

37 01 

38 01 

39 01 
40 

41 
42 

43 01 

44 01 

45 01 

46 01 

47 01 
48 
49 

50 
51 01 
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- Perform full logical device assignment 



013702 010246 



3706 
3710 
3714 



3716 
3720 
3724 
3730 
3732 
3734 
3740 
3744 
3746 
3750 
3754 
3756 



3760 
3764 
3766 
3772 
3774 



4000 
4002 
53 014004 



01' 



011500 
004767 
103421 



010504 
016224 
016200 
001413 
010024 
016224 
016200 
001405 
010024 
016200 
001401 
010014 



021567 
001403 
021567 
001002 
016715 



012604 
012602 
000207 



177726 



OOOOOOG 
OOOOOOG 



000002G 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



. SBTTL LOGASN — Perform full logical device assignment 

LOGASN is called to perform a full logical device name assignment. 
The logical name associated with a file specification is translated 
into the corresponding physical device. The file name, extension* 
and size may also be translated if a file spec was specified with 
the assignment of the logical name. 

Inputs: 
R5 = Pointer to 5 word block containing file spec ( dev, f i le> f i le, ext, si ze) 

Outputs: 
File spec is updated to have physical device name and possibly 
altered file name. 



LOGASN: MOV 

MOV 



R2, -<SP) 

R4> — < SP ) 



See if device name is in our assign table 



MOV 

CALL 

BCS 



<R5),R0 

ASNSRC 

1* 



; Get logical device name 

i See if name is in assign table 

j Br if name is not in assign table 



Found logical device name in the assign table. 
Translate to physical device. 



MOV 
MOV 
MOV 
BEQ 
MOV 
MOV 
MOV 
BEQ 
MOV 
MOV 
BEG 
MOV 



R5, R4 > Get pointer to file spec buffer 

AT*DEV<R2), <R4)+j Put in physical device name 

AT*FIL<R2)> RO j Was file name assigned? 

1* i Br if not 

R0> (R4)+ i Translate file name 

AT*FIL+2<R2), <R4) + 



AT*EXT<R2>, RO 

1* 

RO, <R4> + 

AT*SIZ<R2),R0 

1* 

RO, (R4) 



Mas file extension specified? 

Br if not 

Translate file extension 

Was file size specified? 

Br if not 

Translate file size 



Translate "DK" and "SY" to physical device names 



1*: 



2*: 



CMP 
BEQ 
CMP 
BNE 
MOV 

Fini shed 



3*: 



MOV 
MOV 
RETURN 



<R5>, R50SY 

2* 

(R5), R50DK 

3* 

SYNAME, <R5) 



(SP)+.. R4 
<SP)+, R2 



; Is device name "SY"? 

i Br if yes 

; Is device name "DK"? 

i Br if not 

; Translate to physical device 
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3 






4 






5 






6 






7 






8 


014006 


010346 


9 


014010 


010446 


10 


014012 


010546 


11 


014014 


011305 


12 


014016 


005004 


13 


014020 


071427 000050 


14 


014024 


005705 


15 


014026 


001012 


16 


014030 


010405 


17 


y-V -4 ft J*l T-l 


005004 


IS 


014034 


071427 000050 


19 


014040 


005704 


20 


014042 


001404 


21 


014044 


005705 


22 


014046 


001402 


23 


014050 


062713 000036 


24 


014054 


012605 


25 


014056 


012604 


26 


014060 


012603 


27 


014062 


000207 



. SBTTL FORCEO — Force a 2-char dev name to unit O 

Inputs: R3 points to a RAD50 device name 

Outputs: If the 3rd char of the device name pointed to by R3 is 
blank* then it is changed to 



MOVE CURRENT DEV NAME TO R5 
SET UP FOR DIVIDE 
SEPARATE INTO NAME AND UNIT- 
WAS 3RD CHAR BLANK? 
RETURN IF NOT 
GET HIGH 2 CHARS 
SET UP FOR ANOTHER DIVIDE 
SEPARATE 1 & 2 CHARS 
WAS CHAR 1 BLANK? 
EMPTY OR INVALID DEV NAME! 
WAS CHAR 2 BLANK? 

1-CHAR DEV NAME SHOULD BE INVALID??? 
FORCE TO UNIT 



FORCEO: MOV 


R3 , -<SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


MOV 


(R3),R5 


CLR 


R4 


DIV 


#50, R4 


TST 


R5 


BNE 


9* 


MOV 


R4, R5 


CLR 


R4 


DIV 


#50, R4 


TST 


R4 


BEG 


9* 


TST 


R5 


BEG 


9* 


ADD 


# A R 0, (R3) 


9$: MOV 


(SP)+,R5 


MOV 


(SP)+, R4 


MOV 


(SP)+,R3 


RETURN 
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SBTTL DEADEV 



Deassign physical device 



3 








4 








5 








6 








7 








8 








9 








10 


014064 


010246 




11 


014066 


010346 




12 


014070 


012702 


OOOOOOG 




014074 


012703 


OOOOOOG 


14 


014100 


020062 


OOOOOOG 


15 


014104 


001004 




16 


014106 


005062 


OOOOOOG 


17 


0141 12 


005062 


OOOOOOG 


18 


014116 


062702 


OOOOOOG 


19 


014122 


077312 




20 


014124 


012603 




21 


014126 


012602 




22 


014130 


000207 





DEADEV is called to remove from the assign table all entries 
for logical device names that are assigned to a specified 
physical device. 



Input; 
RO = 

DEADEV: 



Name of physical device. 



1*: 



2*: 



MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
CLR 
CLR 
ADD 
SOB 
MOV 
MOV 
RETURN 



R2, -<SP) 
R3, -<SP> 
#ASNTBL, R2 
#MAXASN, R3 
RO, AT*DEV<R2) 
2* 

AT*L0G<R2> 
AT*DEV(R2) 
#AT**SZ, R2 
R3, 1* 
<SP)+, R3 
(SP)+, R2 



Point to assign table 

Get # assign table entries 

Is this entry for specified phys device? 

Br if not 

Clear logical device name 

Clear physical device name 

Point to next assign entry 

Loop if more to check 
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INSSRC — Search for program in INSTALL table 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 014132 

15 014134 

16 014136 

17 014140 
18 

19 
20 

21 014142 

22 014146 

23 014152 

24 014154 

25 014156 

26 014162 
27 

28 

29 

30 014166 
014172 
014176 

33 014202 

34 014204 

35 014210 

36 014214 

37 014220 

38 014224 

39 014226 

40 014230 

41 014232 

42 014234 

43 014236 

44 014240 

45 014244 

46 014250 
47 

48 
49 

50 014252 

51 014254 
52 

53 
54 

55 014256 

56 014264 

57 014266 



31 
32 



010246 
010346 
010446 
010546 



012702 
012703 
012022 
077302 
012705 
004767 



016705 
010567 
012700 
104375 
012702 
012703 
012700 
021227 
001402 
021213 
001003 
022223 
077007 
000407 
062705 
020567 
103750 



000261 
000415 



026727 
001410 

016705 



. SBTTL INSSRC — Search for program in INSTALL table 

Search the INSTALL table for an entry corresponding to the program 
being started. 

Inputs: 
RO = Address of buffer with file specification. 

Outputs: 
C-flag cleared ==> Found entry for program. 
C-flag set ==> No entry for program. 
IIBUF = Install entry for program if one is found. 



INSSRC: MOV 
MOV 
MOV 
MOV 



R2 , ~(SP> 
R3, -(SP> 
R4, -<SP> 
R5, -<SP) 



Copy file specification to INSSPC and perform any assigns 



000134' 
000004 



000134' 
177514 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOC 
000134' 
000004 
OOOOOOG 



10*: 



MOV 


#INSSPC,R2 


MOV 


#4, R3 


MOV 


<R0>+, (R2) + 


SOB 


R3, 10* 


MOV 


#INSSPC>R5 


CALL 


LOGASN 



;Point to result buffer 
; Get # words to move 
; Copy the file spec 

> Point to name 

; Perform full assignment 



Check next entry in INSTALL table 



1*: 



3*: 



7*: 



OOOOOOG 
OOOOOOG 



MOV INSTBL, R5 

MOV R5> INGADR 

MOV #INGEMT, RO 

EMT 375 

MOV #1 IBUF+I I*NAM> R? 

MOV #INSSPC,R3 

MOV #4, RO 

CMP <R2),#WLDNAM 

BEQ 7* 

CMP <R2), <R3) 

BNE 2* 

CMP <R2)+, <R3)+ 

SOB RO, 3* 

BR 4* 

ADD #11**32, R5 

CMP R5, INSTBN 

BLO 1* 



Point to 1st entry in install table 

Set address of entry to get 

Point to EMT arg block 

Get the install entry 

Point to entry we just got 

Point to target name 

# words to compare 

Wildcard in install entry? 

Br if yes 

Compare file specs 

Br if they don't match 

Advance both pointers 

Loop if more to compare 

We found the entry 

Point to next install entry 

Checked all entries? 

Loop if more to check 



Cannot find entry for this program 
6*: SEC > Signal failure on return 



SEC 

BR 



9* 



00000 1C OOOOOOG 4*: 
OOOOOOG 



Found entry for program 

CMP IIBUF+II*NAM, #WLDNAM ;Is install device wild <"*")? 

BEQ 8* )Br if yes 

MOV RUNDEV* R5 i Get device spec for program 
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TSKMN3 - 


— TSKMON Subroul 


;ines 


INSSRC - 


— Searc 


h for program in 


58 


014272 


004767 


175332 


ST 


Ail A /~»T y 

UA*te:/o 






60 


014300 


020467 


0000000 


61 


014304 


001762 




62 


014306 


000241 




63 








64 








65 








66 


014310 


012605 




67 


014312 


012604 




68 


014314 


012603 




69 


014316 


012602 




70 


014320 


000207 
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CALL 

Br»r> 
WO 

CMP 
BEQ 

CLC 
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CHKDEV 

8* 

R4, LDBEVX 

6* 



8*: 



9*: 



i Convert device name to dev index number 

mi j. r x ii v «a x x u uby jitc 

; Is program on a logical disk? 
; Br if yes — Cannot be installed 
; Signal success on return 



Finished 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
<SP>+, R4 
<SP>+, R3 
<SP)+, R2 



i 
i 
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TSKMN3 - 
LSTSPL - 

1 

c; 

3 

4 

5 

6 

7 

8 

9 

10 

11 

IS 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

vJCL 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— List pending spool files for a device 



, SBTTL LSTSPL — List pending spool files for a device 



014322 010146 

014324 010246 

014326 010346 

014330 010446 

014332 010546 

014334 016102 OOOOOOG 

014340 001525 



LSTSPL is called to display information about spool files pending 
for a specified spooled device. 

Inputs: 
Rl = Address of SDCB for device for which file info is to be printed. 

LSTSPL: MOV R1,-<SP) 

MOV R2, - < SP > 

MOV R3, -<SP> 

MOV R4>-<SP> 

MOV R5, -<SP) 

MOV SDFHD(R1>,R2 

BEG 9* 



014342 010267 163476 

014346 012767 OOOOOOG 163472 

014354 012700 000040' 

014360 104375 

014362 012702 OOOOOOG 



014366 132762 OOOOOOG OOOOOOG 
014374 001504 



014376 016205 OOOOOOG 

014402 012703 000004 

014406 004767 171644 
014412 



014420 016100 OOOOOOG 
014424 004767 171146 



014430 012700 000040 

014434 132762 OOOOOOG OOOOOOG 

014442 001402 

014444 012700 000052 

014450 

144.54 



014462 116205 OOOOOOG 



i GET ADDRESS OF FIRST SFCB FOR THIS DEVICE 
s BR IF NO FILES PENDING FOR THIS DEVICE 



Print info about next SFCB for this device. 
Rl = Address of SDCB. 
R2 = Address of SFCB. 

Move SFCF from kernel area to TSKMON buffer <BLKO) 



1*: 



MOV 
MOV 
MOV 
EMT 
MOV 



R2, PEKADR > Set address of block in kernel 

#SFCB5Z, PEKSIZ ; Set size of data to get 

#PEKEMT, RO ; Point to EMT argument block 

375 i Move SFCB from kernel to our buffer 

#BLKO, R2 > Point to buffer with SFCB we got 



See if 1st write has been done to this spool file. 



BITB 
BEG 



#SF*1ST, SFFLAG(R2); HAS 1ST WRITE BEEN DONE? 



5* 



Print the file ID number 



MOV 
MOV 

CALL 
. PRINT 



SFIDCR2), R5 
#4. , R3 
PRTFIX 
#SPACE2 



Print device name. 

MOV 5DNAME<R1>, RO 
CALL PRTR50 



i BR IF NOT 



; Get spool file ID number 
; Print 4 digits 
; Print ID value 
; Print 2 spaces 



j GET NAME OF SPOOLED DEVICE (RAD50) 
; PRINT THE DEVICE NAME 



Print a star if this file is being printed now. 

MOV #' , RO ; ASSUME FILE NOT BEING PRINTED 

BITB #SF*BSY>SFFLAG<R2)i IS FILE BEING PRINTED NOW? 
BEG 4* i BR IF NOT 

MOV #'*, RO i PRINT * 

4$: . TTYOUT 

PRINT #SPACE2 

Print user number 

MOVB SFUSER<R2>, R5 



I 
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i 
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i GET USER INDEX # 



i 

1 < 
i 

< 
< 
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4 

t 
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T5KMN3 - 


-- TSKMC 


N Subrou 


tines 


LSTSPL - 


— List 


pend ing 


spool fi 


58 


014466 


006205 




CO 
%J7 




A1 17A1 


000002 


60 


014474 


004767 


171556 


61 


014500 






62 








63 








64 








65 


014506 


016200 


0000000 


66 


014512 


004767 


171060 


67 


014516 


016200 


000002G 


68 


014522 


004767 


171050 


69 


014526 






/ W 








71 








72 








73 


014534 


010203 




74 


014536 


062703 


0000000 


75 


014542 


012704 


000006 


76 


014546 


112300 




77 


014550 






78 


014554 


077404 




79 


014556 






80 








81 








82 








83 


014564 


016205 


0000000 


84 


014570 


012703 


000004 


85 


014574 


004767 


171456 


86 








87 








88 








89 


014600 






90 








91 








92 








93 


014606 


016202 


000000G 


94 


014612 


001253 




95 








96 








97 








98 


014614 


012605 




99 


014616 


012604 




100 


014620 


012603 




101 


014622 


012602 




102 


014624 


012601 




103 


014626 


000207 
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files for a device 



R5 



ASR 

MQv w<a. > n<j 

CALL PRTFIX 

.PRINT #SPACE2 



Page 81-1 



CONVERT TO SEQUENTIAL NUMBER 

dbtwt r> rUADC 

PRINT VALUE 



> Print file 


name 


MOV 


SFFILE(R2)>R0 


CALL 


PRTR50 


MOV 


SFFILE+2<R2>, RO 


CALL 


PRTR50 


. PRINT 


#SPACE2 


.; Print form 


name 


MOV 


R2, R3 




#SFF0RM, R3 


MOV 


#6. , R4 


3*: MOVB 


<R3)+, RO 



GET 1ST 3 CHARS OF FILE NAME (RAD50) 

PRINT THEM 

PRINT 2ND 3 CHARS 



. TTYOUT 

SOB R4, 3* 

. PRINT #SPACE2 



POINT TO CELL WITH FORM NAME 
PRINT 6 CHARS 
GET NEXT CHAR OF NAME 
PRINT IT 



Print, number of blocks in spool file 



MOV SFNMBL(R2), R5 
MOV #4. , R3 
CALL PRTFIX 



GET # BLOCKS IN SPOOL FILE 
PRINT 4 CHARS 
PRINT VALUE 



end of print line 

.PRINT #CRLF 
See if there are more spool files for this device. 



5*: 



9*: 



MOV 


SFQLNK ( R 


BNE 


1* 


Finished 




MOV 


(SP)+,R5 


MOV 


<SP>+, R4 


MOV 


(SP)+, R3 


MOV 


<SP>+, R2 


MOV 


<SP>+, Rl 


RETURN 





; CHAIN TO NEXT SFCB 
i BR IF MORE TO PRINT 



i 
i 
f 

i 

4 

I 
« 
I 
( 
I 
i 
i 
i 
4 
< 
t 

i 
C 
i 
t 



i 
i 

1 1 

I 

I I 

I 

I < 

I 

! i 
< 
t 
i 



* 



« 
< 
i 
i 
( 

( 



TSKMN3 - 


-- TSKMC 


N Subrou 


tines 


CHKDLM - 

1 
2 
3 


-- See i 


f char is a del 








4 








5 








6 








7 








8 








9 


014630 


120027 


000060 


10 


014634 


103422 




11 


014636 


120027 


000071 


12 


014642 


101421 




13 


014644 


120027 


000141 


14 


014650 


103406 




15 


014652 


120027 


000172 


16 


014656 


101011 




17 


014660 


162700 


000040 


IS 


014664 


000410 




19 


014666 


120027 


000101 


20 


014672 


103403 




21 


014674 


120027 


000132 


22 


014700 


1 1 402 




23 








24 


014702 


000261 




25 


014704 


000207 




26 








27 


014706 


000241 




28 


014710 


000207 
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. SBTTL CHKDLM — See if char is a delimiter 

CHKDLM IS CALLED TO SEE IF THE CHARACTER IN RO IS 

AN ALPHANUMERIC CHARACTER. 

IF IT IS THE C-FLAG IS RESET ON RETURN. 

IF CHAR IS A DELIMITER THE C-FLAG IS SET ON RETURN. 

ALL REGISTERS ARE PRESERVED. 



CHKDLM: 


CMPB 




RO, #'0 




BLO 




1* 




CMPB 




RO, #'9 




BLOS 




2$ 




CMPB 




RO, #141 




BLO 




3* 




CMPB 




RO, #172 




BHI 




1* 




SUB 




#40, RO 




BR 




2* 


3*: 


CMPB 




RO, #'A 




BLO 




1* 




CMPB 




RO, #'Z 




BLOS 




2* 


> CHARACTER 


IS 


A DELIMITER 


1$: 


SEC 








RETURN 




■> CHARACTER 


IS 


ALPHANUMERIC 


2*: 


CLC 








RETURN 





IS CHAR A DIGIT? 
BR IF NOT 

BR IF DIGIT 

IS THIS A LOWER CASE LETTER? 

BR IF NOT 

LOWER CASE Z 

BR IF DELIMITER 

CONVERT LOWER-CASE TO UPPER CASE 

; IS CHAR A LETTER? 
; BR IF NOT 

; BR IF LETTER 

i SIGNAL DELIMITER 



{ 

I 
f 

< 

f 

i 



t 
t 



f 

i 

i 

i 
i 

i 



> 



< 



« 

i 

i 

i 

1 < 

• c 

( 



TSKMN3 - 
CVTTAB - 

1 

3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 

1 "7 

J. / 

IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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— Convert tab and FF chars to spaces 



014712 010346 



014716 001412 



\J X *T / CW 

014724 
014726 
014732 
014734 
014742 



000011 
000014 



1 ->r\e . . . 

001403 

120027 

001370 

1 1 2763 000040 

000764 



177777 



014744 012603 

014746 122327 000040 

014752 001775 

014754 005303 



014756 000207 



. SBTTL CVTTAB — Convert tab and FF chars to spaces 

CVTTAB is called to convert tab and form-feed characters in a 
command line to space characters. After the conversion is done, 
leading space characters are skipped over. 

Inputs: 
R3 = Address of start of asciz command line. 

Outputs: 
R3 = Pointer to first non-blank character in buffer. 
Command line has had tab and FF chars converted to spaces. 



CVTTAB: MOV 
1*: 



I*. 



MOV 


R3, -<SP) 


MOVB 


<R3>+, RO 


BEQ 


4* 


CMPB 


RO, #TAB 


BEQ 


2* 


CMPB 


RO, #FF 


BNE 


1* 


MOVB 


#' ,-l<R3) 


BR 


1* 



■> Get next character from command 

j Br if end of command 

; Is this a tab character 

; Br if yes 

; Is this a form-feed character? 

> Br if not 

; Replace control character with space 



Finished converting tabs and Form-feeds to spaces. 
Now skip over leading spaces. 



4*: 
3*: 



MOV 


<SP)+.. R3 


CMPB 


(R3)+, #' 


BEQ 


3* 


DEC 


R3 


Finished 




RETURN 





; Set pointer to start of command 
;Skip leading spaces 

; Point to 1st non-blank character 



f 



i 

i 
i 
t 

i 

< 

t 

< 

i 

« 

< 

f 

I 

t 



» * 



1 i 

I 

I i 



i 



I I 



TSKMN3 
CVTUC 



I 
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f 
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( 
t 

< 
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•— Convert chars in command line to upper case 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 



014760 010246 

014762 010302 

014764 112200 

014766 001413 

014770 120027 000141 

U14//4 jl03//j 

014776 120027 000172 

015002 101370 

015004 162700 000040 

Oi50iO li0062 177777 

015014 000763 



015016 012602 
015020 000207 



. SBTTL CVTUC — Convert chars in command line to upper case 

Convert all lower case characters in an asciz string to upper case. 

Inputs: 
R3 = Pointer to asciz string to be converted. 



Get pointer to start of string 

Get next char from string 

Br if hit end of string 

Is this a lower case letter? 

Br if not 



CVTUC: MOV 


R2, -(SP) 


MOV 


R3, R2 


1$: MOVB 


<R2>+, RO 


BEG 


9* 


CMPB 


RO, #141 


BLO 


1* 


CMPB 


RO, #172 


BHI 


1* 


SUB 


#40, RO 


MOVB 


RO, -1 <R2) 


BR 


1* 


; Finished 




9*: MOV 


(SP)+, R2 


RETURN 





> Br if not 

; Convert letter to upper case 

j Store converted char back into string 



i 

i 
i 

i 
i 
i 
C 
I 
f 

t 
i 

< 

4 

« 

i 
c 
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i 
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SKPSPC — Skip over spaces in command 



1 

c 

3 

4 

5 

6 

7 

S 

9 
10 
11 01 



12 01 

13 01 

14 01 
15 

16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 01 

31 01 

32 01 

33 01 

34 01 

35 01 

36 01 
37 
38 
39 

40 01 

41 01 

42 01 

43 01 

44 01 
45 

46 
47 

48 01 
49 

50 01 

51 01 



5022 
5026 

5030 
5032 



122327 
001775 
005303 
000207 



000040 



5034 
5036 
5040 
5042 
5046 
5050 
5054 



5056 
5062 
5066 
5070 
5072 



010046 
1 1 2300 
001413 
120027 
001403 
120027 
001007 



004767 
122327 
001773 
000241 
000401 



000040 



000054 



177740 
000054 



5074 000261 



52 
53 
54 
55 
56 
57 



01 



5076 
5100 
5102 



005303 
012600 
000207 
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.SBTTL SKPSPC — Skip over spaces in command line 

Subroutine to skip over spaces in a command line. 

Inputs: 
R3 = Pointer into command line. 

Outputs: 
R3 = Pointer to next non-blank character. 



SKPSPC: CMPB <R3)+, #' 

BEG. SKPSPC 

DEC R3 
RETURN 



IS NEXT CHARACTER A SPACE? 

BR IF YES — SKIP IT 

BACKUP POINTER TO FIRST NON-BLANK CHAR 



. SBTTL SKPDLM — Skip delimiters in command line 

Subroutine to check for legal delimiters <space(s)> comma* or end of line) 
and skip over in a command line. 

Inputs: 

R3 = Pointer to command line. 

Outputs: 

R3 - Pointer to next command input character. 

C-bit = clear: legal delimiter found <blank<s), comma* end of line) 
set: no delimiter detected 

Save register 

Oet next command character 

Br if end of command hit 

Check for space 

Br if space found 

Check for comma 

Character not blank or comma 

Found legal delimiter - skip multiple spaces and commas. 

1$: CALL SKPSPC ;Skip multiple spaces 

.Next character a comma (following spaces?) 

; Br if comma found 
2*: CLC ;Flag legal delimiter found 

; Finished 

Did not find a legal separator. 

3*: SEC > Flag no legal delimiter found 

; Use no instructions which alter the c-bit before the RETURN. 

10*: DEC R3 iBack up to last not blank or comma character 

MOV <SP)+,ro > Restore register 

RETURN > and return 



: MOV 


RO, -(SP) 


MOVB 


<R3)+, RO 


BEQ 


2$ 


CMPB 


RO, #BLANK 


BEQ 


1* 


CMPB 


RO, #COMMA 


BNE 


3* 



\* roL«L* 


SKPSPC 


CMPB 


<R3)+, #COMMA 


BEQ 


1* 


CLC 




BR 


10* 



SBTTL GETKCH 



Get next char from command line 



GETKCH is called to get the next character from a command line. 

Lower case characters are converted to upper-case before being returned. 



< 

c 
I 
I 
I 

* 
< 

« 

4 
4 
t 

i 

i 



t 
I 
i 



TSKMN3 - 


-- TSKMON Subrou 


tines 


GETKCH - 


— Get next char 


from c 


58 








37 








60 








61 








62 








63 








64 








65 








66 


015104 


112300 




67 


015106 


120027 


000141 


68 


015112 


103405 




69 


015114 


120027 


000172 


70 


015120 


101002 




71 


015122 


162700 


000040 


72 


015126 


000207 
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Inputs: 
R3 = Pointer to next character to be gotten. 

Outputs: 
RO = Character gotten. 
R3 = Updated to point to next character. 



GETKCH: MOVB 
CMPB 
BLO 
CMPB 
BHI 
SUB 

1*: RETURN 



<R3)+> RO 

RO, #141 

1* 

RO, #172 

1* 

#40, RO 



GET NEXT CHARACTER 
IS IT A LOWER CASE LETTER? 
BR IF DEFINITELY NOT 
CHECK UPPER RANGE 
BR IF NOT LOWER CASE 
> CONVERT LOWER-CASE TO UPPER-CASE 



* 

f 

( 
f 
< 



I 

i i 

i 
> ( 

I 

» i 

i , 
I 



TSKMN3 - 
DELSPC - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

1 T 

^ / 

IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
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— Delete spaces from command line 



015130 010246 

015132 010346 

015134 010302 

015136 112300 

015140 001405 

015142 120027 000040 

015150 110022 

015152 000771 

015154 105012 

015156 012603 

015160 012602 

015162 000207 



015164 004767 177632 

015170 112300 

015172 120027 000075 

015176 001407 

015200 120027 000072 

015204 001404 

015206 

015216 004767 177600 



015222 000207 



. SBTTL DELSPC — Delete spaces from command line 

DELSPC is called to delete all space characters from a command line. 

Inputs: 
R3 = Address of start of asciz command line. 

Outputs: 
R3 = Address of start of command line that has been blank squeezed. 



GET NEXT CHAR FROM COMMAND LINE 

BR IF END OF COMMAND HIT 

IS THIS CHAR A SPACE? 

IF YES THEN SKIP OVER IT 

MOVE CHAR INTO NEW COMMAND LINE 

PUT IN ASCIZ NULL AT END 



DELSPC : 


MOV 


R2, -<SP) 




MOV 


R3, -(SP) 




MOV 


R3, R2 


1*: 


MOVB 


<R3)+, RO 




BEG 


2* 




CMPB 


RO, #' 




BEQ 


1* 




MOVB 


RO, (R2)+ 




BR 


1* 


2*: 


CLRB 


<R2> 




MOV 


(SP)+, R3 




MOV 


<SP>+, R2 




RETURN 





.SBTTL CHKEQ — Check that next command character is equal sign 
Check to make sure the next character is an equal sign or a colon. 

CHKEQ: CALL SKPSPC iSkip over any spaces 

Get next command character 

Is character equal sign? 

Br if yes 

Is it colon? 

Br if yes 

Command syntax error 

1*: CALL SKPSPC ;Skip over any spaces 



CALL 


SKPSPC 


MOVB 


<R3)+,R0 


CMPB 


RO, #' = 


BEQ 


1$ 


CMPB 


RO, #': 


BEQ 


1* 



FABORT #EM*CSE 
CALL SKPSPC 



Finished 

RETURN 



i 
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I 
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CKPRIV — Check for OPER privilege 

. SBTTL CKPRIV — Check for OPER privilege 

> Determine if the current user has OPER privilege. 



1 

d. 

3 
4 



5 015224 032767 0000000 OOOOOOG CKPRIV: BIT #PO*OPR, PRI VCO ;Does user have OPER privilege? 

6 015232 001004 BNE 9* ; Br if yes 

7 015234 FABORT #EM*OPR > Operator privileqe required 

8 015244 000207 9*: RETURN 
9 

10 .SBTTL CKSYPV — Check for SYSPRV privilege 

1 J ; 

12 i Check for SYSPRV privilege. 

13 i 

14 015246 032767 0000000 OOOOOOG CKSYPV: BIT #PO*SYS, PRIVCO ; Does user have SYSPRV privilege? 

15 015254 001004 BNE 9* ; Br if yes 

16 015256 FABORT #EM*SPR 

17 015266 000207 9*: RETURN 
18 

19 .SBTTL CKTERM — Check for TERMINAL privilege 

20 i 

21 > Check to see if the user has TERMINAL privilege. 

22 ; 

23 015270 032767 OOOOOOG OOOOOOG CKTERM: BIT #P2*TRM, PRIVC2 ; Does user have TERMINAL privilege? 



24 015276 001004 

25 015300 

26 015310 000207 
27 

28 
29 
30 
31 
32 

33 015312 010346 

34 015314 012703 177777G 

35 015320 020327 000017 

36 015324 001404 

37 015326 

38 015336 005303 

39 015340 002367 

40 015342 

41 015350 012603 

42 015352 000207 

43 000001 
Errors detected: 



BNE 9* 

FABORT #EM*TPR 
9$: RETURN 

. SBTTL PRGALL - 



> Br if yes 

; Terminal privilege required 



Purge all channels for job 



PRGALL is called to purge all channels for the job. 

Channel 17 is not purged since it is used for TSKMON overlays. 



PRGALL: 


MOV 


R3, -<SP> 




MOV 


ttNUCHN-l, R3 


2*: 


CMP 


R3, #17 




BEG 


3* 




. PURGE 


R3 


3*: 


DEC 


R3 




BGE 


2* 




. PURGE 


#RUNCHN 




MOV 


<SP)+, R3 




RETURN 






. END 





; GET # OF LAST CHANNEL TO PURGE 
iDon't purge channel 17 

i PURGE ALL OF USER'S CHANNELS 



; Purge channel used to start SAV files 



! 
4 
i 



*## Assembler statistics 



Work file reads: 

Work file writes: 

Size of work file: 11981 Words ( 47 Pages) 

Size of core pool: 18176 Words ( 71 Pages) 

Operating system: RT--11 

Elapsed time: 00:02:22.08 

, LP: TSKMN3=DK: TSKMN3/C/N: SYM 



i 

i 
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I 
I 
i 
I 
t 
( 
I 
f 
t 

« 



4 





4 _._ A /_ 

j. -"to 






*CARUP 


1-59 






*CCLRN 


1-60 






*CFABT 


1-75 


22- 


-28 


*CFALL 


1-82 


21- 


-24 


*CFCCL 


1-82 


21- 


-9 


*CFDCC 


1-82 


22- 


-30 


SCFKIL 


1-66 


23- 


-19 


*CFOPN 


1-88 


20- 


-9 


*CFSOT 


1-80 


21- 


-24 


SCLTST 


1-71 






SCTRLC 


1-74 






*CTRLO 


1-29 






*CTRLS 


1-65 






*DEAD 


1-125 






*DEFER 


1-93 






*DETCH 


1-63 






SDIBOL 


1-46 






*DILUP 


1-78 






*DISCN 


1-64 






*DOOFF 


1-84 






SDUPRN 


1-79 






*ECHQ 


1-81 






*EMTTR 


1-69 






*FORM 


1-80 






*FORMO 


1-82 






SHITTY 


1-35 






SINCOR 


1-97 






*INDAB 


1-67 


56- 


-47 


*INDDF 


1-124 






*INDRN 


1-124 


8- 


-16 


*INIT 


1-125 






*INKMN 


1-74 






*KED 


1-97 






*KINIT 


1-31 


46- 


-12 


*LC 


1-81 






*MLOCK 


1-52 






*NOIN 


1-35 


21- 


-25 


SNOVLN 


1-42 


9- 


-13 


*NOWIN 


1-24 


8- 


-46 


*NOWTT 


1-35 






*NTGCC 


1-57 


22- 


-29 


SPAGE 


1-81 






*PHONE 


1-125 






SPRGLK 


1-61 






*QTSET 


1-102 


20- 


-19 


*QUIET 


1-94 


20- 


-21 


*SCCA 


1-24 


8- 


-39 


*SCOPE 


1-81 






*SNWTT 


1-122 






*SPLJB 


1-65 






*SUCF 


1-36 


21- 


-26 


*TAB 


1-80 






*TAPE 


1-120 






*TECO 


1-102 






*TTGAG 


1-88 







23-19 

23-27 
20-77 



!1-16 



21-81 



23-25 



49-14 



9-14 
8~49 

23-26 



8-4« 
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Cross reference table <CREF V05. 05) 

$UCLCF i-S9 

*UCLRN 1-90 

*VNOTT 1-28 

*VTESC 1-56 

*WILD 1-103 

...VI 15-53 15-57 15-61 15-68 19-39 19-39 19-39 19-44 19-44 19-47 19-47 19-51 

19-51 19-51 19-55 19-55 19-56 19-56 20-32 20-32 21-19 21-19 21-74 21-74 

21-77 21-77 23-36 23-39 27-19 27-19 27-27 27-27 31-13 32-25 36-33 37-26 

42-19 44-29 45-10 45-26 45-29 45-42 46-20 46-23 49-30 49-38 49-41 50-14 

50-23 50-25 50-29 50-33 51-40 51-42 52-27 52-32 52-34 53-26 53-32 53-33 

53-34 53-35 54-10 54-21 54-23 54-43 54-45 56-6 56-7 56-18 56-19 58-59 

66-57 69-30 69-30 69-30 69-38 69-3B 81-39 81-52 81-53 81-61 81-69 81-77 

81-79 81-89 87-37 87-40 

. . . V2 19-39 19-39 19-39# 19-39# 19-44 19-44 19-44# 19-44# 19-47 19-47# 19-51 19-51 

19-51# 19-51# 19-55 19-55 19-55# 19-55# 19-56 19-56 19-56# 19-56# 20-32 20-32 

20-32# 20-32# 21-19 21-19# 21-74 21-74 21-74# 21-74# 21-77 21-77 21-77# 21-77# 

27-19 27-19 27-19# 27-19# 27-27 27-27# 69-30 69-30 69-30# 69-30# 69-38 69-38 

69-38# 69-38# 87-37 87~37# 87-40 87-40# 

ABRTAD 1-28 

ABRTCD 1-28 

ABRTCF 1-132 22-8# 56-46 

ACRDEC 1-140 28-14# 30-16 

ACRFIL 1-139 58-17# 

ACRFN 1-132 57-14# 

ACROCT 1-142 29-14# 

ACRPRV 1-46 5-1 4# 13-22 

ACRSPD 1-141 30-12# 

ACRSTR 1-27 33-68 34-1 4# 

ACRTXT 1-26 33-14# 

ADLDAC 69-65 71~10# 

ADM3A 1-116 46-37 

ADM3FL 1-117 

ADM3N0 1-118 

AFSCCA 1-24 8-40 

AF*NPW 1-24 8-47 

AFCF 1-24 8-25* 8-38 20-42 21-62* 

ALCDEV 1-50 1-60 59-11* 65-30* 66-16* 

ALDBLK 1-155 

ALDEX 1-154 1-155 

ALFN 1-166 

AMBOPT 1-140 12-50 

ASDEX 1-137 

ASKLNM 1-136 

ASNEND 1-79 

ASNHD1 1-149 

ASNHD2 1-149 

ASNOVF 1-162 73-29 

ASNSRC 1-170 62-22 73-13 73-21 73-27 76-1 3# 77-22 



t 
t 
f 

i 
I 
t 

i 



* ASNTBL 1-78 76-15 
AT**SZ 1-76 76-18 



AT*DEV 1-76 77-29 79-14 79-17* 

AT$EXT 1-76 77-34 

AT*FIL 1-76 77-30 

AT*LOG 1-76 76-16 

* AT*SIZ 1-76 77-37 



73- 


-13 


79- 


-12 


79- 


-18 


79- 


-14 


77- 


-33 


79- 


-16* 



AUTHFN 1-159 
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BADCMD 1-136 

BADPMT 1-143 

BADPRI 1-143 

BADSAV 1-136 

BASMAP 1-111 

BDFNAM 1-139 57-46 

BDLGOP 1-144 

BDLIN 1-157 

BELL 1-1 77# 

BLANK 1-176# 15-61 85-33 

BLKC 1-135 4-30 19-44 19-46 33-36 33-62 34-35 34-62 58-30 58-59 69 37 81-27 

BLKWDS 1-1S1# 

BOTCSR 1-73 19-46* 

BOTDEV 1-73 19-6 19-10 19-28* 19-51 

BOTEMT 1-168 19-61 

BOTHAN 4-54# 19-12* 19-24* 19-37* 19-39 

BOTUNI 1-73 19-13* 19-29* 

C. CSW 1-85 69-39 69-50 

C. DEVQ 1-85 69-42 

C. SBLK 1-85 69-4 D 

CALUCL 1-148 

CCLNAM 1-163 

CCLSAV 1-68 

CCSPRV 1-43 7-9# 

CD**SZ 1-86 59-47 63-44 

CD**UB 1-86 59-34 64-26 

CD*BAS 1-86 60-18 63-42 

CD*DVU 1-86 59-20 60-16 60-28 63-40 

CDfJOB 1-86 59-33 61-18 64-25 

CD*NAM 1-86 

CD*T0P 1-102 

CDBUF 1-45 59-20 59-33 60-16 60-18 60-28 61-18 63-40 63-42 64-25 67-16 

CDGADR 1-45 67-13* 

CDGEMT 1-45 67-14 

CDGET 1-45 59-19 63-39 67-13# 

CDJFLG 59-22 61-13# 64-19 

CDPADR 1-45 67-28* 

CDPEMT 1-45 67-29 

CDPUT 1-45 59-32 67-28# 

CF*IND 1-126 

CFSGUT 1-126 

CF2DEP 1-168 20-98 

CFABLV 1-127 

CFACFL 1-26 24-14 24-38 

CFBLK 1-94 20-34 20-85* 21-72* 21-77 

CFBUF 1-68 20-83 21-77 25-22 25-41 

CFCHAN 1-93 20-32 20-32 21-19 21-19 21-74 2.1-74 21-77 21-77 

CFEND 1-68 

CFHOLD 1-101 21-15* 

CFIND 1-84 20-14* 20-17* 20-46 20-47* 21-14 21-54* 

CFLFL4 1-89 20-18 21-56 

CFNEST 1-87 20-78* 21-10 21-21 21-80* 22-17 

CFOVFL 20-29 20-57 20-70 20-98# . 

CFPNT 1-94 8-14 20-15 20-35 21-12 22-19 23-15 24-9* 24-32* 25-23 25-36* * 

CFSEND 1-88 20-28 20-56 20-69 
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CF3F 


1-SS 


c:\j~czs 




21-35 


21- 


-7y* 




CFSPND 


1-100 


22-10 


22-13* 


23-11 


23- 


-14* 




CFSQEZ 


1-33 


25-16# 












CFSTK 


1-31 














CFSTOP 


1-26 


21-27 


24-5# 










CFSTRT 


1-26 


20-84 


21-71 


22-12 


23- 


-13 


24-2 


CFSTS 


1-126 














CHAIN 


1-74 














CHKALC 


1-30 


66-10# 












CHKCLU 


1-26 


75-14# 












CHKDEV 


1-163 


26-24 


62-14# 


63-20 


66- 


-21 


80-5 


CHKDLM 


1-153 


35-61 


57-26 


82-9# 








CHKEQ 


1-43 


13-18 


86-29# 










CHKMNT 


1-138 


63-14# 












CHKMTX 


1-138 


64-12# 












CHKTTD 


1-157 


18-11# 












CINDAT 


1-110 














CINFLG 


1-28 














CKACOJ 


1-39 


16-13# 












CKCLUS 


1-32 


65-ll# 












CKLDAC 


70-1 4# 


72-9 












CKPRIV 


1-140 


87-5# 












CKSYPV 


1-142 


S7-14# 












CKTERM 


1-140 


87-23# 












CL*XLN 


1-27 


65-15 


65-17 










CLDEVX 


1-93 


66-48 












CLRPRV 


1-43 


5-19 


6-8# 










CMDBUF 


1-131 


1-148 












CMDCCL 


1-163 














CDAD 


1-154 


1-155 












COAF 


1-167 














COAL 


1-154 


1-155 












COLOO 


1-148 


50-25 












COMMA 


1-180# 


15-53 


85-35 


85-41 








CONFIG 


1-83 














CORUSR 


1-29 


8-13 


9-9 


16-17 


16- 


-36 


20-8 


CPUAH 


1-148 


51-63* 


51-72* 


54-10 


54- 


-11 




CPUAL 


1-148 


51-64* 


51-71* 


54-12 








CPUMSG 


1-169 


50-29 












CR 


1-175# 














CRLF 


1-143 


15-57 


50-33 


54-45 


66- 


-57 


81-8' 


CS*RON 


1-55 


69-50 












CSHDEV 


1-78 


59-17 


63-37 










CSHDVN 


1-78 


59-48 


63-45 










CSHHD 


1-130 














CSIMS1 


1-142 














CSIMS2 


1-140 














CSIMS4 


1-162 














CTMSG 


1-169 


50-14 












CTRLTT 


1-72 














CURMTX 


1-153 














CURPRM 


1-99 


20-49 


20-86* 


21-52* 








CVDVNM 


1-150 


60-29 


74-1 2# 










CVTTAB 


1-131 


83-14# 












CVTUC 


1-127 


84-8# 












CW*50H 


1-83 
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CXTBAS 1-77 

CXTPAG 1-54 

CXTRMN 1-26 24-13 24-37 

CXTWDS 1-77 

DATTIM 1-33 54-38# 

DCCRD 1-106 

DCCWR 1-106 

DCTRD 1-106 

DCTWR 1-106 

DEADEV 1-138 79-10# 

DELSPC 1-152 86-118 

DETARG 1-167 

DETHD 1-167 

DETTXT 1-146 

DEVHD1 1-149 

DEVIDL 1-154 1-154 1-155 

DEVUNT 1-141 

DFJMEM 1-31 

DIABFL 1-94 

DIABLO 1-115 46-40 

DIABNO 1-95 

DIV32 36-23 40-14tt 

DIVIDE 1-147 39-S# 50-20 51-23 51~29 51-34 51-54 52-15 52-17 52-19 54-14 54-16 

54-18 

DIVSOR 1-160 40-22 40-25 40-27 40-29 

DJABMS 1-158 

DKSAV 1-131 

DLCEMT 1-50 59-12 

DLLDAC 69-19 72-9# 

DLMSG 1-158 

DLTXT 1-145 

DMT ALL 1-158 59- 5# 

DMTARG 1-137 60-34 68-25 

DMTSUB 1-163 59-43 60-10# 

DOASGN 1-59 73-9# 

DOSTOP 1-159 19-6# 

DZTXT 1-165 

EDIT 1-46 

EDTFIL 1-151 47-14# 

EDTR50 47-20 47-27 47-30 47-37 48-14# 

EM*CAJ 1-39 16-58 

EM*CSE 1-44 5-46 86-35 

EM*DAA 1-60 66-39 

EM*DIU 1-60 66-55 

EM*ENM 1-49 28-70 

EM*IOV 1-49 29-65 

EM* I ST 1-28 33-78 34-70 

EM*I5V 1-49 30-37 

EM*OPR 1-38 87-7 

EM*SPR 1-38 87-16 

EMfTPR 1-38 87-25 

ERRLOC i-30 66-35 66-37 

ERRSEV 1-103 56-44 

FC*CDX 1-130 

FC*LNK 1-130 

FD*NAM 1-130 
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FF 


1-179# 




DO - X T 














FILNAM 


1-132 


1-133 


57-14* 


57-15* 


57-16* 


57- 


-23* 


57-30* 


57-32* 


FIXPRV 


1-43 


8-34 


9-7# 














FKILL 


1-132 


5-46 


12-50 


12-51 


19-53 


20- 


-98 


28-70 


29-65 




73-29 


86-35 


87-7 


87-16 


87-25 










FORCEO 


1-170 


78-8# 
















FPRINT 


1-132 


16-58 


27-21 


56~6# 


56-29 


57- 


-46 


66-39 


66-55 


FSTDL 


1-63 


















GAGMSG 


1-157 


















GENTOP 


1-73 


















GETKCH 


1-50 


85-66# 
















GRT1 


1-112 


















GTRD50 


1-137 


12-21 


35-10# 


57-18 


57-40 










H. CSR 


1-158 


19-46 
















HANBSY 


1-142 


















HANCHN 


1-1S2# 


















HANENT 


1-51 


















HANIDX 


1-141 


















HANS I Z 


1-51 


















HAZEL 


1-52 


46-36 
















HAZLFL 


1-52 


















HAZLNO 


1-52 


















HI MAP 


1-111 


















HIPRI 


1-143 


















HNBUF 


1-141 


















HUPARG 


1-162 


















II**SZ 


1-25 


80-44 
















II*NAM 


1-25 


80-34 


80-55 














IIBUF 


1-25 


80-34 


80-55 














ILLCMD 


1-138 


















ILSW2 


1-58 


















INSACT 


1-124 


8-18 


20-12 


22-21 












IN*CMD 


1-124 


















IN$CNT 


1-124 


8-18 
















INDABT 


1-127 


23-6# 


56-49 














INDACT 


1-134 


















IMDCOL 


15-16* 


15-58 


15-S4# 














INDERR 


1-75 


56-20* 


56-42* 














INDRDB 


4-34# 


23-35* 


23-36 


23-38* 


23-39 










INDSAV 


1-124 


















INDSTA 


1-75 


8-18 


20-12 


20-14 


20-17 


20- 


-47 


20-93* 


21-14* 


INFOMT 


1-138 


















INGADR 


1-25 


80-31* 
















INGEMT 


1-25 


80-32 
















INSSPC 


4-55# 


80-21 


80-25 


80-35 












INSSRC 


1-170 


80-14# 
















INSTBL 


1-25 


80-30 
















INSTBN 


1-25 


80-45 
















INVDAT 


1-167 


















INVDEV 


1-166 


















INVEC 


1-125 


















IIMVLDM 


1-162 


















INVLDN 


1-139 


















INVOPT 


1-132 


1-138 


1-153 


12-51 












IIWTIM 


1-158 


















IOABFL 


1-29 



















57-33 57-35* 57-41* 58-65 
30-37 33-78 34-70 56-29# 

71-46 
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I ITBMTD 1 _•!•-}/. Ai-IVl f 

a mini a icu *tw *~r « 

JCXPGS 1-111 

JCXSMS 1-165 
« JSTKND 1-72 « 

JSWLOC 1-30 

K52 1-46 
I KBMSG 1-147 t 

KBTX 1-151 

KCSIBF 1-136 58-50 58-52 58-59 

* KED 1-46 < 
KEYBUF 1-169 55-38 55-80 55-89 

KEYEND 1-169 55-64 

* KILEMT 1-159 4 . 
KL3CLR 1-61 

KL4CLR 1-96 

* KliFTXT 1-169 56-6 t 
KMNBAS 1-121 

KMNCHN 1-68 

C KMNERR 56-8 56-31 56-4 1# € 

KMNHI 1-53 

KMNNAM 1-163 
< KMNPGS 1-54 < 

KMNSTK 1-54 

KMNSTR 1-54 
t KMNTOP 1-54 ( 

KMPRMT 1-107 

KMSTK 1-170 56-30 
1 KUSECK 1-49 66-53 i 

L 3-12 3-12# 3-13 3-13# 3-14 3~14# 3-15 3-15# 3-16 3-16# 3-17 3-17# 

3-18 3-18# 3-19 3-19# 3-20 3-20# 3-21 3-2 1# 3-22 3-22# 3-23 3-23# 

« 3-24 3-24# 3-25 3-25# 3-26 3-26# 3~27 3-27# 3-28 3-28# 3-29 3-29# * 

3-30 3-30# 3-31 3-31# 3-32 3~32# 3-33 3-33# 3-34 3-34# 3-35 3-35# 

3-36 3-36# 3-37 3-37# 3-38 3-38# 3-39 3-39# 3-40 3-40# 3-41 3-41# 

* 3-42 3-42# 3-43 3-43# 3-44 3-44# 3-45 3-45# 3-46 3-46# 3-47 3-47# * 
3-48 3-48# 3-49 3~49# 3-50 3-50# 3-51 3-51# 3-52 3-52# 3-53 3-53# 

3-54 3-54# 3-55 3-55# 3-56 3-56# 3-57 3-57# 3-58 3-58# 3-59 3-59# 

* 3-60 3-60# 3-61 3-6 1# 3-62 3-62# 3-63 3~63# 3-64 3-64# 3-65 3-65# * 



3-66 3-66# 3-67 3-67# 3-68 3-68# 3-69 3-69# 3-70 3-70# 3-71 3-7 1# 
3-72 3-72# 3-73 3-73# 3-74 3-74# 3-75 3~75# 



f LA120 1-115 46-39 

LA12FL 1-116 

LA12N0 1-116 

* LA36 1-115 46-38 
LA36FL 1-95 

LA36N0 1-95 

* LACTIV 1-55 
LAFSIZ 1-58 
LCBIT 1-115 

* LCOL 1-57 1-102 



LCONTM 1-65 50-16 

LCPUHI 1-65 50-30 

LCPULO 1-65 50-31 

LD*R0N 1-91 69-52 71-39 



LDBASE 1-92 26-45 60-18 63-29 69-45* 69-61 69-61* 
* LDCLEN 1-33 68-6# 



LDDEVX 1-93 26-30 62-77 63-25 66-22 69-57 70-23 71-31 80-60 
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LDFLHtf 1 — 7d. OT — *>&■* / X~ «J7 

LDMNT 1-34 68-32 69-14# 

LDNAM 1-136 

LDNAME 1-92 68-19 69-26 

LDOPHD 1-144 

LDPDEV 1-92 26-44 60-16 62-81 63-28 68-36 69-41* 69-44* 69-60 69-60* 69-74* g 

LDSIZE 1-92 26-47 69-33* ' 

LF 1-174# 

LF*0PN 1-129 26-18 27-6 27-26 

LF*WRT 1-129 

LFWLIM 1-58 

LWUVtn 1—1 68 «=:/— «£l 

LICTXT 1-112 

LINBUF 1-53 

LINCNT 1-55 

LINCUR 1-58 

LINFRE 1-158 

LINNXT 1-53 

LINPNT 1-55 

LJSW 1-72 

LMXLN 1-125 

LMXNUM 1-123 

LMXPRM 1-126 

LNBLKS 1-77 

LNMAP 1-83 

LNPRIM 1-83 16-37 16-37 

LNSBLK 1-78 

LNSPAC 1-87 

LOCKTX 1-147 

LOGASN 1-139 77-16# 80-26 

LOGBAS 1-59 26-50 26-52 

LOGBLK 1-128 27-19 

LOGBUF 1-128 27-16 27-19 

LOGCHK 1-59 26-1 1# 

LOGCHN 1-128 27-19 27-19 27-27 27- 

LOGCLS 1-143 26-59 27-5# 

LOGDVU 1-59 26-37 26-48 

LOGFLG 1-128 26-18 27-6 27-26* 

LOGPTR 1-128 27-11 27-25* 

LOMAP 1-111 

LOTBUF 1-56 

LOTNXT 1-56 

LOTPNT 1-56 

LOTSIZ 1-57 

LOTSPC 1-57 

LPARNT 1-35 16-39 

LPRG1 1-113 

LPRG2 1-113 

LPROG 1-64 16-51 16-51 49-42 

LPROJ 1-64 16-44 16-44 49-36 

LRBFIL 1-84 

LRDTIM 1-55 

LSCCA 1-80 

LSECPT 1-69 

LSTACT 1-53 

LSTATE 1-109 
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1 CTfll 

LSTMX 

LSTPL 

LSTPRM 

LSTSL 

LSTSPL 

LSUCF 

LSW 

LSW11 

LSW2 

LSW2S 

LSW3 

LSW4 

LSW 5 

LSW6 

LSW7 

LSW9 

LTRMTP 

LTSCMD 

LUNAME 

LWINDO 

MAXASN 

MAXAVL 

MAX MEM 

MAXMTX 

MAX SEC 

MDT 

MINTIM 

MISSEQ 

MNTARG 

MNTDEV 

MNTFUL 

MNTTXT 

MONAR 1 

M0NAR2 

MONHD 

MONTAB 

MONVEC 

MSGBUF 

MSGEND 

MTOPHD 

MUL32 

MXCSR 

MXDTR 

MXJADR 

MXJMEM 

MXPRMT 

MXVEC 

NAMTOP 

NARGS 



1 —L.n 

A WW 

-123 

■104 
100 

•109 
.-28 

-60 
.-29 
1-24 

-74 
i-42 

_70 
/ / 

1-96 
22-30* 
-61 

J. G-tZ. 

1-126 
-52 
,-116 
-87 
-64 
-24 
-75 
-141 
-30 
-153 
-69 
-52 
.-69 

•142 
,-162 
137 
•139 
1-164 
L-152 
■152 
•152 
-169 
1-127 
•157 
.-157 
.-138 
.-167 
-123 
-123 
-32 
-31 
-107 
-125 
-112 
3-ll# 
3-15 
3-19 
3-23 
3-27 
3-31 



1 z.—^ja 

16-22 
20-63 

81-9# 

46-12 
8-46* 
9-13* 
9-14* 

51 —•-!>=,» 

20-9 
23-27* 
8-16 

56-47 

21-26* 

46-11 

49-27 

76-14 



50-15 

68-39 
60-33* 



53-31 



36-19 



3-12 
3-16 
3-20 
3-24 
3-28 
3-32 



20-89 



49-14 
8-49* 
9-21* 



20-18* 
8-39* 

T"3 * Q.K- 

CU J. T ™ 

22-29* 



79-13 



68-24* 



41-14# 



3-12 
3-16 
3-20 
3-24 
3-28 
3-32 



11-41 



20-19 

20-21* 
8-42* 

23-26* 



68-38* 



51-62 



3-12 
3-16 
3-20 
3-24 
3-28 
3-32 



20-44 
23-25* 



20-77* 



21-9* 



iz. 1 16 



24* 



!l-57* 



21-60* 



21-81* 



3-13 
3-17 
3-21 
3-25 
3-29 
3-33 



3-13 
3-17 
3-21 

3-29 
3-33 



3-13 
3-17 
3-21 
3-25 
3-29 
3-33 



3-14 
3-18 
3-22 
3-26 
3-30 
3-34 



3-14 
3-18 



26 



3 
3-30 

3-34 



3-14 
3-18 
3-22 
3-26 
3-30 
3-34 



3-15 
3-19 
3-23 
3-27 
3-31 
3-35 



3- 



15 

to 



3-23 
3-27 
3-31 
3-35 
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w"™ W V? 


J- JO 


J— JO 


J— JO 




3-39 


3-40 


3-40 


3-40 




3-43 


3-44 


3-44 


3-44 




3-47 


3-48 


3-48 


3-48 




3-51 


3-52 


3-52 


3-52 




3-55 


3-56 


3-56 


3-56 




3-59 


3-60 


3-60 


3-60 




3-63 


3-64 


3-64 


3-64 




3-67 


3-68 


3-68 


3-68 




3-71 


3-72 


3-72 


3-72 




3-75 








NAT XT 


1-145 








NEGFLG 


4-59# 


28-26* 


28-29* 


28-62 


NEWJSW 


1-72 








NFRESB 


1-98 








N1NTXT 


1-145 








NLINES 


1-85 








NOCCL 


1-144 








NOCIN 


1-136 








NODAT 


1-150 








NOFIL 


1-148 


1-156 






NOFLAG 


1-138 








NOFRDL 


1-167 








NOIND 


1-142 








NOKMON 


1-163 








NOLDMT 


1-150 








NONEMS 


1-150 








NOOPTT 


1-156 








NOPMGN 


1-152 








NOPRG 


1-132 


1-136 






NOSTRT 


1-135 








NOTAVL 


1-151 








NOTON 


1-157 








NOT XT 


1-145 








NOUDC 


1-149 








NSWPMS 


1-153 








NTRMTP 


46-15 


46-44# 






NUCHN 


1-84 


87-34 






NUMDEV 


1-118 


62-57 






NUMON 


1-58 








OCTFIX 


1-145 


32-9# 






OCTPRT 


1-165 


31-7# 






OF**SZ 


1-120 


70-27 


71-26 


71-50 


OF*DEV 


1-H9 


70-23 


71-31* 


72-15* 


OF*FIL 


1-119 


71-24 


71-34* 


71-35* 


OF*FLG 


1-119 


71-37* 


71-41* 




OF*UNT 


1-119 


70-25 


71-32* 


72-16* 


OFFEMT 


1-159 








OKFAND 


1-70 


70-28 


71-51 


71-53* 


OKFEND 


1-70 








OKFILE 


1-70 


70-22 


71-21 




OKFNND 


1-70 


71 — 7)D 






OPTLST 


1-47 


10-10# 






OT*RON 


1-120 


71-41 






OTHRON 


1-161 








OTRMNT 


1-163 









J- j/ 


J-JV 


3-41 


3-41 


3-45 


3-45 


3-49 


3-49 


3-53 


3-53 


3-57 


3-57 


3-61 


3-61 


3-65 


3-65 


3-69 


3-69 


3-73 


3-73 


29-26* 


29-29* 



71-36* 72-17* 



72-23 



72-25* 



j— j/ 
3-41 
3-45 
3-49 
3-53 
3-57 
3-61 
3-65 
3-69 
3-73 



29-57 



j— JO 
3-42 
3-46 
3-50 
3-54 
3-58 
3-62 
3-66 
3-70 
3-74 



j— JO 
3-42 
3-46 
3-50 
3-54 
3-58 
3-62 
3-66 
3-70 
3-74 



j— JO 
3-42 
3-46 
3-50 
3-54 
3-58 
3 62 
3-66 
3-70 
3-74 



J-J7 

3-43 
3-47 
3-51 
3-55 
3-59 
3-63 
3-67 
3-71 
3-75 



3-39 
3-43 
3-47 
3-51 
3-55 
3-59 
3-63 
3-67 
3-71 
3-75 
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OVRCOR 


•• .... 4 nc 










PO**NP 


1-38 


14-41 


14-43 






PO*ALC 


1-42 


3-13 


3-14 






PO*BYP 


1-37 


3-15 


3-16 






POfDBG 


1-39 


3-17 


3-18 






POSDET 


1-40 


3-19 


3-20 


16- 


-26 


POSLOK 


1-40 


3-23 


3-24 


3- 


-35 


PO*MEM 


1-40 


3-25 


3-26 






PO*NAM 


1-41 


3-43 


3-44 






PO*NFR 


1-37 


3-29 


3-30 






PO*NFW 


1-37 


3-31 


3-32 






PO*OPR 


1-40 


3-33 


3-34 


87- 


-5 


PO*RT 


1-40 


3-37 


3-38 






POSSND 


i-4l 


3-41 


3-42 






PO*SPF 


1-37 


3-47 


3-48 






PO*SPV 


1-39 


1-41 


3-45 


3- 


-46 


PO*SYS 


1-41 


3-51 


3-52 


87- 


-14 


P2**NP 


1-38 


14-42 


14-44 






P2*CGR 


1-41 


3-49 


3-50 






P2SCXT 


1-36 


3-21 


3-22 






P2*GRP 


1-39 


3-57 


3-58 


16- 


-46 


P2*MSG 


1-40 


3-27 


3-28 






P2*RLK 


1-41 


3-39 


3-40 






P2*SAM 


1-39 


3-59 


3-60 


16- 


-53 


P2*TRM 


1-38 


3-53 


3-54 


87- 


-23 


P2*UP1 


1-36 


3-65 


3-66 






P2*UP2 


1-36 


3-67 


3-68 






P2*UP3 


1-36 


3-69 


3-70 






P2*UP4 


1-36 


3-71 


3-72 






P2*VIR 


1-42 


3-61 


3-62 


3- 


-63 


P2*WRL 


1-39 


3-55 


3-56 


16- 


-31 


PASLIN 


1-103 










PAUMSG 


1-131 










PBFEND 


1-88 


20-50 


20-91* 


21- 


-47 


PBUFND 


1-168 


42-11 


44-17 






PEKADR 


1-27 


4-28# 


81-23* 






PEKEMT 


1-27 


4-26# 


81-25 






PEKSIZ 


1-27 


4-29# 


81-24* 






PF*IOW 


1-122 










PF*SYS 


1-122 










PFCO 


1-44 


4-42# 


6-11 


14- 


-20 


PFLALL 


3-12 


14-50# 








PFLNON 


3-73 


14-61# 








PFLRTN 


3-13 


3-14 


3-15 


3- 


-16 




3-25 


3-26 


3-27 


3- 


-28 




3-37 


3-38 


3-39 


3- 


-40 




3-49 


3-50 


3-51 


3- 


-52 




3-61 


3-62 


3-63 


3- 


-64 




14-13# 










PFLSTD 


3-74 


3-75 


14-41# 






PFSO 


1-44 


4-41# 


6-10 


14- 


-17 


PMRI ICV 


1-152 










PNAME 


1-118 


1-141 


19-23 


19- 


-36 


POPCF 


1-102 


21-7# 


22-23 


23- 


-17 


PPNMSG 


1-169 


49-38 








PRGALL 


1-34 


87-33# 









3-36 



3-64 9-19 



14-26 14-43* 14-44* 14-62 



3- 


-17 


3- 


-29 


3- 


-41 


3- 


-53 


3- 


-65 


14- 


-29 


62- 


-58 



14-43* 


14-44* 


3-18 


3-19 


3-30 


3-31 


3-42 


3-43 


3-54 


3-55 


3-66 


3-67 


14-41* 


14-42* 


74-17 





3-20 3-21 3-22 3-23 3-24 

3-32 3-33 3-34 3-35 3-36 

3-44 3-45 3-46 3-47 3-48 

3-56 3-57 3-58 3-59 3-60 

3-68 3-69 3-70 3-71 3-72 



14-51 
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* Cross reference table (CREF V05. 05) 

* PRGSIZ 1-53 
PRGTOP 1-53 

PRIVCO 1-44 7-12 8-30 16-26 87-5 87-14 

* PRIVC2 1-42 9-18 16-31 16-46 16-53 87-23 

PRIVFO 1-44 8-21 8-29 20-37 20-39 21-64 21-66 

PRIVSO 1-44 7-13 8-20 

* PRMBUF 1-100 20-53 20-91 21-48 
PRMEND 1-100 
PRMPNT 1-99 20-66 20-73 20-87 21-36 



PRTFNM 1-150 38-14# 

PRTLN 1-146 43-108 

PRTPCT 1-160 36-10# 

PRTR50 1-166 37-8# 81-44 81-66 81-68 

PRTSPC 1-144 45-40# 

PRTTIM 1-166 50-7# 

PRTTMD 1-151 52-9# 

PRTTMV 1-148 50-32 51-14# 



' PRTTOD 1-166 54-6# 54-44 

PRTTTP 1-145 46-9# 

PRTUNM 1-146 49-9# 

PRTWRN 1-133 26-58 56-18# 

PRVHD 3-1 1# 5-33 15-38 

£ PRVLST 1-43 15-16# 

* PRVOPT 1-27 13-14# 

PUSHCF 1-133 20-7# 



PVNPW 1-44 6-12 7-14 8-22 8-31 14-52 14-63 15-23 20-28 20-37 21-66 

PVON 1-61 

QUME 1-115 46-41 

QUMEFL 1-117 

QUMENO 1-117 

R*CFST 1-26 24-14* 24-38* 



R50DIR 1-133 

R50DK 1-166 62-45 77-45 

R50DSK 1-139 

R50DUP 1-134 



R50IND 1-133 

R50K52 1-134 

R50KED 1-134 

* R50KEX 1-134 

R50LD 1-139 



i 



i PRTBUF 1-150 

PRTDAT 1-166 53-6# 54-42 

g PRTDC2 1-147 45-7# 50-21 50-24 51-38 51-41 51-44 52-30 52-33 52-36 53-40 54-19 

* 54-22 54-25 ' 

PRTDC3 1-147 45-24# 

PRTDEC 1-141 36-28 42-6# 45-12 45-30 49-39 49-43 52-25 53-25 66-56 

' PRTFIX 1-144 43-14 44~12# 81-38 81-60 81-85 ' 
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a R. GSTS 1-47 23-35* 23-38* 

* R50BUF 1-137 12-22 35-55* 35-57* 57-23 57-30 57-32 57-41 * 

R50C1 4-51# 75-31 

R50C10 4-52# 65-27 75-35 75-39 

R50C17 4-53# 75-37 

R50CHR 1-168 37-18 38-28 48-33 

t R50CL 4-4S# 75-18 

' R50CL0 4-49# 65-29 75-22 75-26 

R50CL7 4-50# 75-24 
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I R<=ifM I^Ci 1—1 *3T Z.A—1A iQ_1 1 

R50LD7 1-139 

R50L0G 1-143 

* R5OM0N 1-167 

R50N0 1-140 12-22 

R50PIP 1-134 

* R50SY 1-133 62-47 77-43 
R50TT 1-162 18-11 

R50TT0 4-46# 18-13 

C R50TT7 4-47# 18-15 

R50VIR 1-135 

RDB 1-108 

< RDBEND 1-108 

RDCMD 1-131 56-32 66-58 

RDERM 1-135 

1 REMNDR 1-168 40=32* 40-33* 

RESDEV 1-120 70-16 71-10 

RNMS 1-146 

C RONTXT 1-151 

RS. CRR 1-47 

RS. EGR 1-47 23-38 

I RS. GBL 1-47 23-35 

RS. PVT 1-47 23-35 

RSR 1-123 

I RSTPRV 1-43 8-6# 21-28 21-68 22-35 23-31 

RT**SZ 1-108 

RT*NAM 1-108 

I RUNCHN 1-50 87-40 87-40 

RUNDEV 1-77 80-57 

RUNEMT 1-135 

C RUNFLG 1-37 8-38* 8~40 8-47 

RUNHD 1-131 

RUNMS 1-167 

1 S*INWT 1-67 

S*I0FN 1-62 

S*I0WT 1-113 

* SSMSWT 1-68 
S*0TFN 1-62 
S*0TL0 1-62 

1 S*0TWT 1-67 

S$QUSR 1-113 

S*SFWT 1-67 1-113 

* SfSPCB 1-114 
S*SPDB 1-114 
S*SPND 1-61 

« S*TMWT 1-67 

S*TTFN 1-62 

S$TWFN 1-62 

* SC*SEV 1-71 56-42 56-44 
SC*WRN 1-69 56-20 
SCHAIN 1-93 
SCNOPS 1-49 11-10# 

SD*BAK 1-96 

SD*DEL 1-89 

* SDSFLK 1-90 



i 



SDSHLD 1-99 
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SD*SNG 1=98 

SD*WFM 1-90 

SDBLK 1-91 

SDBU 1-96 

SDBUF1 1-91 

SDCB 1-104 17-11 

SDCBND 1-104 17-12 

SDCBSZ 1-109 17-16 

SDFHD 1-101 17-14 81-14 

SDFLAG 1-90 

SDFORM 1-90 

SDNAME 1-109 1-153 81-43 

SDSFCB 1-89 

SDSKIP 1-96 

SEARCH 1-131 12-32 55-19# 

5ERFLG 1-29 68-26* 68-28* 69-29* 69-31* 

SETHD 1-140 

SETWRD 1-46 5-34 10-21 11-31 12-13# 

SF*1ST 1-99 81-31 

SF*BSY 1-98 81-49 

SF*HLD 1-99 

SFCBSZ 1-48 81-24 

SFFILE 1-114 81-65 81-67 

SFFLAG 1-10.1 81-31 81-49 

SFFORM 1-98 81-74 

SFID 1-50 81-36 

SFNMBL 1-98 81-83 

SFQLNK 1-101 81-93 

SFUSER 1-114 81-57 

SH**SZ 1-48 

SH*FLG 1-48 

SH*NAM 1-48 

SH*RTN 1-48 

SH*VAL 1-48 

SHMTH1 1-149 

SHMTH2 1-149 

SHOHD 1-164 

SHTMSG 1-159 

SIZEMT 1-162 

SIZVAL 1-136 

SJSPPN 1-170 4-60# 49-19 



SO*NO 1-51 

SO*NVL 1-51 

SO*OCT 1-51 

SPACE2 1-146 54-43 81-39 81-53 81-61 81-69 81-79 

SPACE3 1-146 

SPACE5 1-147 

SPACE6 1-150 

SPACTV 1-154 1-155 

SPCF 1-156 

SPDVAL 4-7# 30-30 

SPFLK 1-156 

SPFUL 1-156 
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SKPDLM 1-71 85-30# 

SKPSPC 1-71 5-24 5-38 10-14 11-14 12-19 12-25 28-18 28-22 28-31 29-18 29-22 * 

29-31 33-19 33-23 34-19 34-23 85-1 1# 85-12 85-40 86-29 86-36 
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( 
I 



CD^rMT 


1—1 <*J^ 






SPLACT 


1-159 


17-10# 




SPLCHN 


1-66 






SPLHD 


1-153 






SPLHLA 


1-144 






SPLND 


1-91 






SPLPND 


1-161 






SPSNG 


1-154 


1-156 




SPUBUF 


1-32 






SPWFM 


1-154 


1-155 




SRTSMS 


1-161 






SRTTXT 


1-164 






START 


1-168 


19-55 


19-56 


3TLQHD 


1-143 






STPASK 


1-161 






STPFLG 


1-66 






SUBARO 


1-151 






SUBTXT 


1-164 






sues 


1-112 






SUM1 


1-160 






5UM2 


1-160 






SUM3 


1-160 






SUM4 


1-160 






SUMS 


1-161 






SUM6 


1-161 






SUM7 


1-161 






SUMS 


1-112 






SUP COD 


1-112 






SWPTX 


1-147 






SXBPNT 


1-32 






SYHD1 


1-146 






SYHD2 


1-146 






SYINDX 


1-118 


19-22 


19-33 


SYNAME 


1-119 


77-47 




SY5AV 


1-131 






SYSDAT 


1-110 






SYTIMH 


1-110 






SYTIML 


1-110 






SYUNIT 


1-118 


19-25 


19-34 


TAB 


1-178# 


55-29 


83-17 


TALEMT 


1-60 


65-31 


66-27 


TBLOVF 


1-140 


71-46 




TECO 


1-46 






TK1SEC 


1-57 


51-22 


51-53 


TK1VAL 


1-110 


51-70 




TK5VAL 


1-97 


51-20 




TM*CLG 


1-49 


26-58 




TMIDLH 


1-34 






TMIOH 


1-34 






TMIOWH 


1-33 






TMSWPH 


1-34 






TMSWTH 


1-34 






TMTOTH 


1-33 


1-160 




TMTOTL 


1-33 


1-160 




TMUSRH 


1-33 






TOTMMS 


1-164 







62-49 



62— 52 



« 

i 
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< 

« 



54-13 



i 

i 
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TOTON 
TOTXT 


4 It 

1— QO 

1-143 






i 


TRGRET 


1-112 






TRMSTR 


1-133 








TSKMN3 


l-5# 


1-29 




f 


TSR 


1-123 






TSXLN 


1-112 








TSXSIT 


1-112 






i 


TSXSMS 


1-165 






TTFTBL 


46-16 


46-34# 


46-44 




TTNADM 


46-51 


46-67# 




r 


1 1 YHU J. H 


«+0 _ i?-<+ 


46-70# 




TTNHZL 


46-50 


46-66# 






TTNL12 


46-53 


46-69# 




i 


TTNL36 


46-52 


46-68# 




TTNQUM 


46-55 


46-71# 






TTNTBL 


46-22 


46-48# 




( 


TTNV10 


46-49 


46~64# 




TTNV20 


46-56 


46-57 


46-65# 




TTNV52 


46-48 


46-63# 




i 


TTNXXX 


46-20 


46~62# 




UCSMDC 


1-130 








UC*NDC 


1-130 






t 


UCHAN 


1-82 






UCLBLK 


1-129 








UCLDAT 


1-129 






i 


UCLNAM 


1-87 






UERSEV 


1-103 


22-3 1* 


23-20* 




UFORM 


1-74 






« 


UFPTRP 


1-89 






UHIMEM 


1-77 








UMSSMS 


1-164 








UMSYTP 


1-63 






< 


UPTMMS 
USPLCH 


1-159 
1-66 






1 


USRMMS 


1-165 






U5RSTK 


1-31 








USTART 


1-73 






1 


UTRPAD 


1-30 






VCORTM 


1-107 








VHIPCT 


1-105 






( 


VI MAGE 


1-72 






VQUAN1 


1-105 








VQUAN2 


1-105 






( 


VQUN1A 


1-105 






VTIOO 


1-115 


46-35 






VTIOFL 


1-117 






4 


VTIONO 


1-117 






VT2007 


1-114 


46-42 






VT2008 


1-114 


46-43 




1 


VT52 


1-115 


46-34 




VT52FL 


1-116 








VT52N0 


1-95 








WILDFL 


1-35 






( 


WLDNAM 


1-35 


48-19 


71-33 


( 


WRNHED 


1-134 


56-18 
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XAREA 1-132 19-39 19-44 19-51 19-55 19-56 20-32 21-74 21-77 23-36 23-39 27-19 

54-10 69-30 69-38 
YESTXT 1-145 
ZCLR 1-123 
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. . . CMC 


58=59 


58-59 


. . . CM1 


19-39 


19-44 


. . . CM2 


19-39 


19-39 




19-56 


19-56 




27-19 


27-19 


. . . CM3 


19-47 


21-19 


. . . CMS 


15-53 


15-57 




23-36 


23-39 




45-42 


46-20 




51-42 


52-27 




54-43 


54-45 




31-61 


81-69 


. . . CM6 


23-36 


23-39 


. . . CM7 


19-44 


19-55 


. CLOSE 


1-17# 


19-47 


. CRRG 


l-20# 


<=:3— 3o 


. CSIGE 


1-15# 




. CSISP 


1-13# 


58~59 


. DATE 


1-16# 


53-9 


. ELRG 


l-20# 


23-39 


. ENTER 


1-18# 




. EXIT 


1-1S# 




FPROT 


1-19# 




. GTIM 


1-16# 


54-10 


. GTLIN 


1-16# 




. GVAL 


1-19# 




. HERR 


1-19# 




. LOOKU 


1-17# 


19-39 


. PRINT 


1-17# 


15-57 




54-45 


56-6 


. PURGE 


1-14# 


87-37 


. PVAL 


1-19# 




. READW 


1-14# 


19-44 


. REOPE 


1-15# 


21-74 


. SAVES 


1-1 5# 


20-32 


. SERR 


1-19# 


19-38 


. SRESE 


1-13# 




. TTOUT 


1-13# 




. TTYIN 


1-14# 




. TTYOU 


1-14# 


15-53 




49-30 


49-41 




53-35 


54-21 


. WRITW 


1-18# 


27-19 


CMDDEF 


2-47# 


3-12 




3-23 


3-24 




3-35 


3-36 




3-47 


3-48 




3-59 


3-60 




3-71 


3-72 


FABORT 


2-15# 


5-46 




86-35 


87-7 


FERR 


2-4# 


16-58 


FWARN 


2-23# 


26-58 


TBLDEF 


2-35# 


3-11 


TBLEND 


2-62# 


3-76 



58-59 

19-51 

19-44 

19-56 

27-19 

27-27 

15-61 

27-19 

46-23 

52-32 

56-6 

81-77 

54-10 

19-56 

21-19 



54-39 



19-51 
42-19 
56-7 
87-40 

19-55 

69-38 



15-61 
50-23 
54-23 

3-13 

3-25 

3-37 

3-49 

3-61 

3-73 

12-50 

87-16 

27-21 



19-55 

19-44 

19-56 

27-19 

87-37 

15-68 

31-13 

49-30 

52-34 

56-7 

81-79 

21-77 
27-27 



69-30 
44-29 
56-18 



19-56 



15-68 
51-40 
81-52 

3-14 

3-26 

3-38 

3-50 

3-62 

3-74 

12-51 

87-25 

57-46 
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